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SECTION  1 

INTRODUCTION  AND  SUMMARY 

This  document  presents  the  latest  version  of  the  NHTSA 
Hybrid  Computer  Vehicle  Handling  Program  (HVHP) , which  is 
operational  at  The  Johns  Hopkins  University  Applied  Physics 
Laboratory.  Many  refinements  have  been  incorporated  into  the 
simulation  since  the  publication  of  Reference  2.  In  particu- 
lar, the  tire/road  interface  model  (Reference  3)  has  been  im- 
proved. Additional  important  features  are: 

1)  Preprogrammed  simulation  initialization  for  per- 
forming any  one  of  the  six  Vehicle  Handling  Test 
Procedures  (VHTP) . 

2)  Automatic  data  collection  of  system  variables  for 
immediate  calculation  of  the  Vehicle  Comparison 
Variables  (CV)  associated  with  the  selected  VHTP 
(References  4 and  5) . 

3)  The  incorporation  of  a flexible  set  of  input/output 
routines  specifically  designed  as  an  engineer's 
interface  for  hybrid  computer  control  and  operation. 

4)  Reorganization  of  simulation  model  to  minimize 
execution  time. 

The  tire  model  improvements  were  made  in  conjunction 
with  the  Calspan  Corp.  under  DOT  contract  HS-053-3-727 . The 
VHTP  initialization  and  comparison  variable  calculation  were 
implemented  in  a general  manner  to  allow  redefinition  of  the 
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VHTP ’ s and  CV's  for  all  classes  of  vehicles  (passenger, 
recreational,  commercial,  etc.)/  instead  of  just  automobiles. 
The  extensive  engineer  interfacing  features  and  input/output 
options  were  made  practical  by  the  expected  continued  use  of 
the  HVHP  to  perform  vehicle  handling  research. 

For  program  verification,  a set  of  six  VHTP  maneuvers 
was  run  for  four  1971  vehicles:  VW  Superbeetle,  Chevrolet 

Brookwood,  Dodge  Coronet,  and  Pontiac  Trans  AM.  The  simula- 
tion comparison  variable  output  was  compared  with  that  obtained 
from  full-scale  tests  of  these  vehicles  under  contract  DOT 
HS-031-1-159  (Reference  6) . Good  correlation  betv/een  simulated 
and  test  comparison  variables  was  achieved.  The  vehicle  des- 
criptors used  in  the  simulation  were  not  those  obtained  for 
the  vehicles  tested  in  the  above  contract  but  were  instead 
obtained  from  like  models  of  these  vehicles  used  in  conjunction 
with  the  Calspan  Corp.  contract.  When  published  (Reference  3) , 
these  data  can  be  compared  with  the  latest  Calspan  full-scale 
tests.  The  simulation  of  the  independent  rear  suspension  VW 
or  a solid  rear  axle  vehicle,  such  as  the  Dodge,  is  performed 
with  the  sam.e  simulation. 

User  experience  with  the  HVHP  has  shown  that  while  per- 
forming parametric  runs,  500  seconds  of  vehicle  motion  can  be 
simulated  in  one  hour  of  computer  use.  This  translates  to  a 
cost  of  less  than  $0.50  per  vehicle  simulation  second  and 
represents  a 50%  utilization  of  the  available  computing  time. 
Since  this  simulation,  running  at  one-fourth  of  real  time,  is 
capable  of  900  vehicle  simulated  seconds  per  hour,  approxi- 
mately 50%  of  the  time  is  utilized  for  observing  data  and 
changing  parameters.  The  $0.50  per  simulated  second  should 
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be  viewed  as  the  current  lower  cost  limit. 

For  program  debugging  and  model  checkout,  fewer  runs 
are  made  in  a given  time  period  than  when  parametric  data  is 
being  produced.  Therefore,  the  cost  per  vehicle  simulated 
second  would  increase.  However,  general  experience  has  indi- 
cated that  on-line  data  observation  for  debugging  decreases 
the  total  time  required  for  program  checkout.  During  the 
debug  phase,  HVHP  cost  usually  ranges  between  one  and  two 
dollars  per  vehicle  simulated  second,  with  a decreasing  trend 
to  the  $0.50  per  second  figure. 
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SECTION  2 

FOUR-WHEELED  VEHICLE  HYBRID  SIMULATION 

2.1  INTRODUCTION 

Contained  in  this  section  is  a description  of  the  four- 
wheeled  vehicle  hybrid  computer  simulation.  The  basic  mathe- 
matical model  is  described  in  terms  of  seventeen  degrees  of 
freedom.  The  perturbing  forces  and  moments  which  act  on  the 
vehicle  are  also  considered.  The  simulation  implementation 
and  validation  are  discussed. 

2.2  SIMULATION 


2.2.1 

Mathematical  Model 

consists  of: 

The  seventeen-degrees-of-freedom  vehicle  model 

1-) 

A basic  ten-degree-of -freedom  model  of  the  vehicle 
body,  front  wheels,  and  rear  axle. 

2) 

A three-degree-of -freedom  steering  system  model. 

3) 

A f our-degree-of -f reedom  wheel  rotational  dynamics 
model. 

The  basic  ten-degree-of-freedom  model  regards 

the  vehicle  as  an  assembly  of  four  rigid  m.asses;  the  vehicle 
body,  two  front  wheel  masses,  and  the  rear  wheel  axle  combina- 
tion (solid  rear  axle) . The  ten  degrees  of  freedom  consist  of 
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the  six  standard  translational  and  rotational  degrees  of  freedom 
for  the  body,  two  for  the  vertical  motion  of  each  front  wheel, 
and  two  for  the  rotation  and  vertical  motion  of  the  rear  axle. 
When  the  vehicle  model  includes  the  independent  rear  suspen- 
sion, each  rear  wheel  is  considered  as  an  independent;  mass; 
and  the  vertical  motion  of  each  rear  wheel  is  a degree  of 
freedom. 


The  steering  system  model  with  three  degrees  of 
freedom  represents  the  compliance  in  each  of  the  front  wheals 
and  in  the  connecting  rod.  The  tire  moments  about  each  king- 
pin axis  are  functions  of  the  circumferential  and  side  tire 
forces,  tire  aligning  torque,  the  inclination  and  caster  of 
the  king  pins,  and  the  caster  trail  effects  of  the  tires. 
Steering  wheel  displacerrient  is  the  steering  system  input. 

Four  additional  degrees  of  freedom  (for  a total 
of  seventeen)  are  contained  in  the  rotational  equations  of 
motion  about  the  spin  axis  of  each  wheel.  These  equations, 
which  include  the  differential  effects  of  the  rear  wheels, 
yield  the  wheel  rotation  rates  from  which  slip  and,  in  turn, 
the  circumferential  and  lateral  friction  coefficients  are 
computed.  The  input  to  the  equations  can  be  either  drive 
torque  or  brake  torque. 

The  equations  of  motion  of  the  vehicle  body, 
wheels,  and  rear  axle  are  perturbed  by  suspension,  gravity, 
and  tire  forces  and  moments.  The  suspension  equations  include 
the  effects  of  the  springs,  shock  absorbers,  and  front  and 
rear  auxiliary  roll  stiffness.  The  suspension  deflections 
are  calculated  relative  to  the  suspension  equilibrium  posi- 
tion which  varies  with  vehicle  weight.  Vehicle  functions. 
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such  as  camber,  caster,  and  toe  angles,  anti-pitch  and 
anti-roll  forces,  and  bump  stop  forces  are  input  relative  to 
the  unloaded  vehicle  suspension  positions.  These  functions 
are  then  corrected  to  the  equilibrium  position  for  varying 
vehicle  weight  when  used  for  calculations  within  the  vehicle 
model . 


The  tire  forces  (radial,  circumferential,  and 
lateral)  are  computed  for  each  wheel.  The  radial  load  is  pro- 
portional to  the  distance  between  the  wheel  center  and  the 
road.  The  circumferential  force  is  the  product  of  the  tire 
radial  load  and  circumferential  coefficient  of  friction  which 
is  a function  of  wheel  slip,  radial  load,  and  normalized  slip 
angle.  The  lateral  tire  force  is  the  product  of  the  tire 
radial  load,  lateral  friction  coefficient,  and  two  shaping 
functions  representing  the  effects  of  normalized  steer  angle 
and  longitudinal  slip.  Additionally,  the  lateral  friction 
coefficient  is  a function  of  radial  load  and  wheel  velocity. 
Wheel  aligning  torques  and  overturning  moments  are  included 
as  functions  of  wheel  radial  load,  side  force,  and  camber 
angle . 


2.2.2  Allocation  of  Analog  and  Digital  Computer  Tasks 

The  hybrid  simulation  block  diagram  of  the  auto- 
mobile is  shown  in  Figure  A-1.  Calculated  in  the  digital  por- 
tion are  the  sprung  mass  equations  of  motion,  wheel  orientation 
angles,  and  tire  force  equations.  Wheel  brake  and  drive  torques, 
velocities  of  the  tire  contact  point,  and  resultant  forces  and 
moments  are  also  computed  in  the  digital  portion. 


7 


BCE-T-0530 


The  analog  computations  include  the  suspension 
forces,  shock  absorber  and  wheel  spring  functions,  longitudinal 
wheel  slip,  and  circumferential  coefficient  of  friction.  In 
addition,  the  equations  of  motion  of  the  unsprung  masses  and 
steering  system  equations  are  solved  on  the  analog  computer. 

The  hybrid  simulation  is  time  scaled  to  run  at 
one-fourth  real  time,  i.e.,  20  seconds  of  clock-on-the-wall 
time  is  required  for  5 seconds  of  vehicle  simulation. 
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2.2.3  Implementation  of  the  Mathematical  Model 
2.2. 3.1  Analog  Portion 

The  APL/JHU  hybrid  computer  facility  (Appendix  C) 
contains  analog  machines  manufactured  by  Electronic  Associates, 
Inc.  (EAI) . The  portion  of  model  programmed  on  the  analog 
computer  is  divided  between  models  of  EAI  analog  computers. 

The  entire  steering  system  is  contained  on  an  EAI  231-R  and 
the  rotational  wheel  dynamics,  circumferential  friction  co- 
efficient calculation,  tire  deflection,  and  suspension  dyna- 
mics contained  on  an  EAI  680.  Data  communication  with  the 
digital  computer  is  provided  by  24  multiplying  digital-to- 
analog  converters  (MDAC’s),  24  non-multiplying  DAC ' s and  24 
channels  of  analog-to-digital  conversion  (ADC's).  The  sys- 
tem contains  a control  interface  which  allows  complete  con- 
trol of  the  680  analog  computer  and  data  interface  by  the 
digital  computer. 

To  expedite  setup  and  checkout  of  the  analog 
portion,  a static  analog  test  program  for  both  the  solid  and 
independent  rear  is  used.  This  was  accomplished  by  program.- 
ming  the  mathematical  model  equations  solved  on  the  analog  as 
a digital  simulation  language  program  (Reference  7) . The 
digital  program  output  provided  an  independent  check  of  the 
simulation.  The  static  check  results  verify  that  the  programmed 
analog  portion  of  the  simulation  represents  the  respective  ve- 
hicle mathematical  model  equations. 
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2. 2. 3. 2 Digital  Portion 

The  APL/JHU  hybrid  facility  (Appendix  C)  utilizes 
an  IBM  360,  Model  91,  for  digital  calculations.  Model  coding 
is  performed  in  the  Fortran  IV  language.  Model  calculations 
not  assigned  to  the  analog  computers  are  performed  digitally. 

2.3  USER'S  INTERFACE 

The  interface  between  the  engineering  user  and  the 
computer  has  been  designed  to  maximize  user  control  and  in- 
formation retrieval  from  the  hybrid  computer  (Reference  14) . 

The  interface  has  been  implemented  by  a set  of  generalized 
input/output  subroutines.  Using  these  communication  routines, 
the  following  necessary  tasks  can  be  accomplished  interactively 
at  the  CRT  hybrid  control  console. 

• Interrogation  of  any  digital  variable,  including 
arrays,  by>  name. 

• Assignment  of  new  values  to  any  digital  parameter 
or  initial  condition. 

• Tracking  and  printing  the  values  of  any  digital 
variable  as  a function  of  time. 

• Printing  the  end  of  run  values  of  any  digital  vari- 
able or  parameter . 

• Performing  automatically  a group  of  parametric  runs 
varying  one  or  more  parameters  or  initial  conditions 
by  an  arbitrary  amount. 
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• Assigning  new  digital  variables  to  the  DAC ' s (digital- 
to-analog  converters)  and  ADC's  (analog-to-digital 
converters) . 

• Rescaling  the  digital  variables  output  on  the  DAC ' s 
or  input  on  the  ADC's. 

• Commenting  the  computer  output  with  observations 
pertinent  to  the  computer  runs. 

• Printing  the  value  of  all  digital  variables  on 
command. 

The  usefulness  of  these  routines  is  augmented  by  having  the 
following  features: 

• The  output  unit  for  all  digital  computer  responses 
is  selectable  (line  printer,  CRT,  or  both). 

• Extensive  subroutine  error  recovery  v/hich  allows 
operation  by  untrained  personnel. 

® Free  format  input  which  obviates  the  need  to  always 
insert  decimal  points,  spaces,  etc.  which  would  be 
required  by  Fortran  syntax. 

An  explanation  of  the  modules  which  are  the  building  blocks 
of  the  routines,  as  well  as  a discussion  of  interaction,  is 
presented  in  Appendix  D. 
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2.4  VHTP  MANEUVERS  AND  COMPARISON  VARIABLES 
2.4.1  VHTP  Maneuvers 


The  simulation  has  the  capability  of  self-  ^ 

initializing  to  perform  any  of  the  six  automobile  VHTP  maneu- 
vers and  calculating  the  comparison  variables  appropriate  for 
the  selected  VHTP.  Utilizing  the  communication  routines,  a 
VHTP  is  selected  by  addressing  the  Fortran  variable  VHTPNO 
and  assigning  it  a value  from  1 to  6 . The  value  of  0 is  re- 
served for  a special  check  run  that  verifies  correct  dynamic 
operation  of  the  simulation.  Once  a VHTP  has  been  selected, 
the  system  forcing  function,  pertinent  to  the  VHTP,  can  be 
accessed.  For  all  VHTP ' s the  Fortran  variable  PFL  represents 
brake  line  pressure.  For  VHTP ' s 2 to  6 , the  steering  wheel 
input  has  the  Fortran  name  STR2 , STR3 , etc.  The  names  PFL, 

STR2,  etc.  can  be  used  in  the  multi-run  routine  to  simulate 
a series  of  VHTP  tests  in  which  the  brake  line  pressure  or 
steering  wheel  input  is  incremented.  By  convention,  when  a 
VHTP  is  selected  in. which  the  steering  input  is  normally  a 
parameter  (VHTP  2,  4,  5),  the  STR  variable  contains  the  steer- 
ing wheel  rotation  required  to  input  2.0  degrees  of  normalized 
steer.  This  value  is  required  for  run  series  in  which  the 
steering  is  incremented. 

2.4.2  VHTP  Comparison  Variables 

•% 

Comparison  variables  are  output  in  both  the  sin- 
gle run  and  multiple  run  modes.  If  a single  run  is  executed, 
a general  comparison  variable  format  is  selected  in  which  all 
CV's  are  output.  However,  only  tnose  pertinent  to  the  selected 
VHTP  will  be  non-zero.  If  a series  of  runs  is  executed,  the 
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output  is  in  a tabular  format  with  the  forcing  function  (steer- 
ing wheel  angle  or  brake  line  pressure)  starting  in  the  left 
column  followed  by  the  pertinent  CV*s.  An  example  is  presented 
in  Figure  2-1,  in  which  the  following  occurs: 

1)  VHTP  4 is  selected. 

2)  The  STR4  variable  is  interrogated  to  determine 
the  steering  wheel  rotation  for  2 degrees  of 
normalized  steer. 

3)  The  steering  wheel  input  is  set  equal  to  300 
degrees . 

4)  A single  run  is  executed. 

5)  A run  series  of  four  runs  is  set  up  v/ith  STR4 
initialized  to  two  degrees  normalize  steer  (NS) 
and  ihqremented  by  two  degrees  NS  in  each  run. 

6)  A multiple  run  is  executed. 

A representative  parametric  run  series  for  each  VHTP  is  pre- 
sented in  Figures  2-2a  to  2-2f. 

2.5  VALIDATION 

2.5.1  Tire  Effects  Program 


The  HVHP  was  used  extensively  for  vehicle 
simulation  while  APL  worked  cooperatively  with  the  Calcpan 
Corp.  on  DOT  contract  HS-053-3-727 . For  this  contract, 


13 


BCE-T-0530 

f 


THIS  15  THE  riR51  Or  TUO  5FEC1AL  C^K'DS  FOR  IHF  2741  Af  M 
VEHICLE  HANDI.ING  5/MUlATJON 
LNUAi.E  PATCH  PANEL  f UK*  TE5T 
TYPE  Cr<  WHEN  READY 

MU'*  * 

MAY  :m  19  74 

TIME  14  0 1 1 . 76 

UPT ION 

X M «t  • P 

I NT  Eft 

Mx««  VHTPNO  4 


flPTION 

M M W 4 TC 

(IPl  ION 

N «M«  r 

L NT  Eft 
«•*«  ilK4 
27.90 

♦*»«*  5TR4  300. 

«««» 

OPTION 

*!•••  X 

MAY  21  1974 

TIME  14  2 7.10 

RUN  1 HA5  STARTED 
OUTPUT  DELOU 

AXAV=  0.0  DECl  TTME=  G.GGO  AVCUK=  0.9«1  DIDMAX=  0.210  HTMAX-  0.126  DELHT=^  0.126 

AYMAX-  O.V45  PHIMAX=  4.101  RMAX^  0.70H  I ANF  f.HNG  DEL*  0.0  DEI.F'51=  0.0  MAX  STEf  ft-s  300.000 

I IftOMAXs  0.0  ftTP^RMAX.-  0.0 

OPTION 
M » a «•  V 

I Nil  ft 

HH«a  VHTP'NO 
4.000 

(IP  I ION 

««--  MOLD 

MUM  OF  100P.V/VAK5 

Maaa  4 1 ' 

VAN  ' 

H«a*  51 R4 
t.OOP/VAL  ^ INC 
»»•«“  1 27.9  27.7 

N M a M 

OPT  ION 

XM 

MAY  :M  1‘V4 


f TMI 

1 4 4 

16.24 

ICON 

2 HA5 

5 1 Aft  T L D 

UUTITil 

KEl  OU 

Mill  1 I 

im  AL 

51ft4  . , ( 1 

J HP  1 AMXl  1 ) 

HP  rDhXl  1 I 

( UVftATl 

1 1 AYMAX . ( 1 

1 i KMAX . . i n 

i 

2 

0 . 31  ‘IE-02 

0.2OO6  01 

0.92«a 

01  0 . 1 J 4 

0.6V4F -01 

2 

.3 

V* . u 

0 . 1 051  01 

0.341E-01 

0.260 

0.34.! 

0.106 

3 

4 

U3. 7 

0.21 9E  01 

0.646E-G1 

0.4'JU 

0.53V 

0..1O4 

4 

5 

11.?. 

0..175L  01 

0 . 90Vk - 01 

0.573 

0.691 

0.40V 

liPl  lUN 


Pig.  2-1  HVHP  USER'S  INTERACTIVE  CONTROL 


14 


BCE-T-0530 


M I:iiT(K%L  MCrivE 

vKiiKib:  i;/,.  :linc  rir.ui.raioM 

i Ntj.-.GE  f niCH  f ow  rKsr 

rn  t ctn  KEAur 

\A  y?/A 

I IME  16  14-46.?? 

(5FTION 
< < < . F 
i-.u . f;R 

■ » < * viirpiJO  1 


OP r I ON 

ic 

urn  ON 
'‘"•t  OULTI 

o"fi  OK  1. oorw. -.'hRS 

...»  41 

vr.R 

F'KL 

(-OOP/V.M./1NC 
A’  M 1 iOO  1 00 

A*  • » 

or  1 1 UN 

• Xii 

■ilNE  14  1?74 

IIOK  16: 16;  1.46 

lOlN  1 M.'..';  .VfAfsrf-O 
• jini  !ir  i.i  I 00 
OMl  1 I rOiiM.  1 H.  . . I 1 ) 

11  yy  *. 

2 2 ■ - > . 

I i . 

1 4 / 


mVK.I  1) 

0 . 4 1 V :• . / s 

0.501  J.04 

-o..‘n/  1...0 

1.62 


0 . . 


0 , ^ 1 -.i; 


c'l.if  I.I  1 ) :;=.»(  \ . ( 

•V.  •.  i:  01  0 1 .'i: 

■ . 1 Oo 

■ . 1 ' 4 ■» . 1 

1.00  1 . ‘jo 


0. 1 . . • v1 

. 1 ,*■  1 0.1  • ; 

1.C0 

1 .00  0.-  ' 


Fig.  2-2a  HVHP  INTERACTION  FOR  VHTP  NO.  1 


'•P  ION 

IC 

DfU  ON 

F 

!.N  ItR 

-'>»♦  VHTFNO  2 
i.r  1 ION 

* . . . u 

t '•! : i.iN 

.j...  Ill'Ll  I 

■ «L.i  OK  i.i.u  I ;.P4 

• • •♦  4 1 

V.-.R 

• . » IFL 

‘P.V.M,  ,IIIC 

1 .■  0 1-'0 


» - » * >•  ,1 

.0  14  1 ?;i 

' ! -K  16  16  ■>.  -■}. 

• til  I.'  O 

•••■III  r -i/L  ?;-L. . . I 
1 5 : . 4 . 

.■)  6 ••  ). 

.5  7 : : . 

■1  .5 


0. 4.'.5 
j y? 


11 

0.  o:o 
0 . :r?  ? 
o.:-75 

0..:/7 


O..M'K  01 

L 01 

0. 01 

0.  1/  ■;:v  01 


c IJ\ 


1 f ( 
1.10 
1.1a 

'.  il2 


.71.  m,(  11 

0...:.' 01 
0.115 
1 .CO 

1 .o-:> 


2)  -Lin.i  31 
•■‘./y'OC-Ol  • 0.-'U:*61 

0. 101  1 .•.-o  ■ - J. 

0.1 1'5  t.'-'-'O  • •). 

•:..rj6  1.0  0. 


Fig.  2-2b  HVHP  INTERACTION  FOR  VHTP  NO.  2 


15 


BCE-T-0530 


ilKI  UN 

IC 

• ii  noN 

> * • F 

l-NTLR 

.*.»*•  VIliTNO  i 


l>r  f ION 

»•••»  IC 

un  UN 

Min.ri 

iJ'Jll  OK  LOOPS / VARS 

> . t . 3 :i 

VAR 

Dhh  N 

I COP/ VAI./  INC 

>f  W 4 1 o 0 

,t»0  * 2 10 

«-  2 10  0 

• ' * • 3 1 i 0 

VAR 

DhPS 

I CifJP/VAI.  . INC 

• > • » 1 1, 7 . 6 

• 2 Vi.O 

)»  » # » 3 3 7.7 

I'r’T  ION 

« * • • Xh 

INNF  M r?74 

I m-.K  1o  12.M 
Iv'JN  ■;  . \S  STARU.D 
i.'JlrUf  L l.uU 


1 I 1 hii  AL 

I'.oPN  . . ( 1 

1 PMPS . . 1 1 : 

1 A. <.l  1 

1 I P 1A<..l  1 

il  CtJVRAn  1 

1 LKIC.-iCt 

1 ? 

y .00 

57.6 

0.511 

0.315 

O.V;.J 

0. 1 10 

2 1-> 

10.0 

••.■3.0 

0.631 

0.350 

1.01 

0.20? 

3 1 1 

1 5.0 

<7.7 

0.416 

0.  131 

0 . 9 /•  3 

0.177 

Fig.  2-2c  HVHP  INTERACTION  FOR  VHTP  NO.  3 


nimiMAi,  AC  five 

/I  IIUIF  IIANDt.INi;'  Sir.lJI  AHUN 

Li.'oa  n:  i akm  pamIl  kuk  itsi 

I fP*.  CR  IJliLN  I.IIADC 

lilNL  M \?/A 

I iNc  1 > Vu  ■/ 1 . U4 

HP  r Ujn 

» F 

i:n!i  p 

* ViHI-NO  1 


fJl-  I luN 

IC 

l>PJ  ION 

X / w K 

i:ni;  ft 


vinifio 


4 


OP  I I'.N 

:ti.»  K 

Ol-I  ION 

FU 

KFT-.R 

>i0  0»  F 
I.NirlR 
<'««*  SiR4 
27.75 

on  luN 

Mill,  f I 

NIJ.I  ul'  I I'lOPS  A/ARS 

•*.*  4 1 

VAR 

SIR4 

I u\  P/VAL; INC 
- ' < • 1 '55  .U^>  ■;’5 .06 

■ »PI  f QN 

rt  « ' . 7f1 

Jli.-E  14  r/74 

rii.K  16  1 0.91 

rclltj  1 HAS  .ii.iKM-.D 

him;  iM  I ) I >g 


ill:-.  I [ 

( . > 1 Al 

..  ll-4..(  1 

) . L (i.iUl  1 f 

l!i:i  DilVl 

1 ) 

ujvpAn  1 

i)  AVMAX.l  11 

.'.AX . . 1 

1 

1 

■>5  . ? 

.0.1  .■■  ;K  M 

0.  r.  L 

01 

0 . 1 7 

0.212 

0.  1 24 

2 

.2 

112. 

’ >1 

0 . / V i 

01 

0.  54  5 

0 .1*2 

0.255 

3 

3 

1 A»i. 

‘1 

0. 1 1 > 

0.4/? 

*).  ‘M  i 

0 . 39  1 

1 

> 

.:23. 

*.110 

0.  U7 

C M? 

0 . 7 i 1 

O.'JM 

Fig.  2-2d  HVHP  INTERACTION  FOR  VHTP  NO  4 


16 


BCE-T-0530 


ijKf  ION 

K 

LfMtR 

VH7FNO  5 

(JKTION 

K.*»  K 
OPTION 
x*  »»  F 

llfilER 

SIR5 
27. V3 

nr-  r ION 

hOLTI 

OF  LGOP^/VftR^ 

» < » 4 1 

vr-.K 

w«»  rrP5 
l.OljP^Vi*-L/  INC 
-*<**  1 *j5.B6 

u • « 

OPTION 

» * * /f1 

.lUNE  14  1774 

n.iE  14.  7 '16.00 
I- UN  'j  STARTED 

UMTPUT  :CLOU 


nt'LTi 

TOr.*.L 

.>rP5..f  1 

) AY.IAX.t  1 

) DPL  . . . ( 1 

1 pr.  TAIiXI  1) 

DfCl.PSI  ( 

1 ) U I N . 

1 

5 

55.9 

0.177 

9.70 

0.1  WE-01 

0.51  7E 

-02 

•15.0 

2 

6 

1 12. 

0. 372 

6. -Id 

0.3VVE  01 

-O...’  -IE 

02 

45.0 

3 

7 

1/)fi. 

0.5A2 

4.69 

0.7viE  01 

-0.11  ;r. 

01 

•15.0 

4 

3 

223. 

0.710 

6.11 

0.129 

0.  ’oC 

01 

45.0 

Fig.  2-2e  HVHP  INTERACTION  FOR  VHTP  NO.  5 


Of-  7 IG.N 
- « F 
i:n7i  R 

VIUPNO  6 

OPT  ION 

IC 

OF  TIO.N 

Jif  4*  F 

l.NfER 

I PI. ON 
0 . 'i;>00 

OPT lUN 

nULTI 

NIJ.1  f.F  LOOP.V/VAPS 

:t . / # i 1 

VAR 

DPP  OFF 
I riUf  P-/AI.  / INC 
M ^ # 1 0.7  0.05 

urn  ON 

' Xfl 

JUNE  14  177-1 

f Ir.E  16  -11:  2.72 
IVUN  9 HAS  STa::TKD 
no  Spur  PKi.nu 


iULfl  rOTAL  PIU.^ 

lAXl  1 

I nilLMXf  1 

» R.‘1AX..(  1 

) ZlhX. . ( 1 

) ZINX. . ( 2) 

7IMX..I  31 

7IMX.  .1  1) 

UIN. . . ( 1 ) 

L.'PfFFt 

1 9 

0.17 

0.730 

0.425 

0.872 

0.615 

0.624E-01 

0.507E-01 

50.0 

0.700 

2 10 

0.22 

0.725 

0.428 

-1.01 

0.636 

0.i30P  <^1 

0.  176E-01 

50.0 

0.'«'50 

3 1 1 

6.14 

0 . 67  3 

0.425 

-0.715 

0.6J8 

0.831 1:  02 

0.518E-01 

50.0 

1 .00 

Fig.  2-2f  HVHP  INTERACTION  FOR  VHTP  NO.  6 


17 


BCE-T-0530 


"Research  on  the  Influence  of  Tire  Properties  on  Vehicle 
Handling,"  Calspan  was  responsible  for  refining  the  tire/ 
road  interface  model  which  APL  incorporated  into  the  HVHP. 
Calspan  monitored  the  simulation  modification  and  examined 
the  output  for  authenticity.  Therefore,  in  addition  to  APL 
validation,  the  HVHP  performance  has  been  examined  by  engi- 
neers with  extensive  backgrounds  in  vehicle  handling. 

In  the  performance  of  DOT  contract  HS-053-3-727 , over 
2000  simulated  VHTP ' s were  run.  Four  vehicles  were  simulated: 
Chevrolet  Brookwood  station  wagon.  Dodge  Coronet,  Pontiac 
Trans  Am,  and  Volkswagen  Super  Beetle.  For  each  vehicle,  a 
complete  set  of  VHTP ' s was  performed  using  simulated  OF 
tires.  Parametric  studies  were  then  run  varying  tire  para- 
meters to  determine  their  affect  on  vehicle  handling  perform- 
ance. The  comparison  variable  graphs  for  the  original  equip- 
ment tire  configuration  runs  are  presented  in  Appendix  F of 
this  report. 

2.5.2  Vehicle  Handling  Test  Procedures 

Time  Histories  for  a typical  set  of  VHTP  raaneu- 
vers  is  presented  in  figures  2-3  to  2-8.  The  vehicle  siraulated 
for  these  runs  is  the  1971  Dodge  Coronet. 

2. 5. 2.1  Straight  Line  Braking 

This  run  series  determines  the  value  of  brake 
line  pressure  at  which  two  wheels  on  the  same  axle  lock-up. 

For  this  vehicle,  both  rear  wheels  were  locked  at  500  psi  and 
and  all  four  wheels  were  locked  at  650  psi. 
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2. 5. 2. 2  Braking  In  a Turn 


This  run  series  determines  the  value  of  brake 
line  pressure  at  which  two  wheels  on  the  same  axle  lock-up 
while  the  vehicle  is  executing  a constant  0.3  gee  turn.  For 
this  vehicle,  the  inside  rear  wheel  was  locked  at  400  psi 
and  both  rear  wheels  and  the  inside  front  wheel  were 
locked  at  525  psi. 

2. 5. 2. 3 Turning  On  a Rough  Road 

For  this  run  series,  the  vehicle  traverses  a 
bump  grid  while  in  a steady  0.4  gee  turn.  Three  grid  fre- 
quences are  simulated:  9,  11,  and  14  HZ. 

2 . 5 . 2 . 4 'Trapezoidal  Steer 

In  this  run  series,  trapezoidal  steers  of  4,  8, 

12  and  16  degrees  of  normalized  steer  angle  were  used.  For 
this  vehicle,  28  degrees  of  steering  wheel  angle  is  required 
for  2 degrees  of  normalized  steer.  The  CV  output  for  the  VHTP 
is  presented  in  Appendix  F. 

2 . 5 . 2 . 5 * Sinusoidal  Steer 

In  this  run  series,  sinusoidal  steers  with  a 
maximum  amplitude  of  4,  8,  12  and  16  degrees  of  normalized 
steer  angle  were  used.  For  this  vehicle,  28  degrees  of  steer- 
ing wheel  angle  is  required  for  2 degrees  of  normalized  steer. 
The  CV  output  for  this  VHTP  is  presented  in  Appendix  F. 
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2. 5. 2. 6  Drastic  Steer  and  Brake 


The  purpose  of  these  runs  is  to  deterraine  vehicle 
roll-over  tendency.  For  this  vehicle,  a peak  roll  angle 
of  0.15  radians  and  a peak  roll  rate  of  0.72  radians  per 
second  was  achieved. 

2.6  TIRE  DATA 

As  previously  stated,  the  current  HVHP  tire/road  in- 
terface model  was  defined  by  Calspan  as  part  of  DOT  contract 
HS-053-3-727 . For  this  contract,  Calspan  tested  many  cires 
at  their  TIRF  (Tire  Research  Facility)  testing  complex.  As 
a convenience  for  working  with  APL  and  using  the  HVHP,  the 
TIPJ’  associated  computer  was  programmed  to  process  tire  data 
into  a format  directly  compatible  with  the  HVHP  tire  model. 
Therefore,  very  little  effort  is  required  to  prepare  tire 
data  for  input  to  the  HVHP  for  tires  which  have  been  tested 
on  the  TIRF  machine'..  For  tires  tested  on  orher  tire  test 
machines  or  flat  bed  testers,  APL  has  the  TIRF  computer  data 
processing  program.  When  the  tire  test  data  has  been  properly 
formatted,  the  program  output  will  be  compatible  with  the 
HVHP.  However,  data  preparation  for  the  latter  approach 
can  be  very  time  consuming. 

2.7  HVHP  INPUT  DATA 

2.7.1  Data  Deck  Description 

A general  input  data  deck  is  used  with  the  HVHP. 
Defined  in  the  data  deck  are  the  following: 
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1)  Vehicle  simulated. 

2)  Front  and  rear  camber,  caster,  and  toe  functions 
via  coefficients  for  a fifth  order  polynomial 
approximation . 

3)  Front  and  rear  brake  torques  as  pairs  of  brake 
pressure  in,  brake  torque  out  data  points. 

4)  Lateral  friction  coefficient  degradation  with 
circumferential  slip  as  pairs  of  percent  slip 
in,  percent  of  lateral  friction  coefficient  out 
data  points. 

5)  Interactive  OPTIONS. 

6)  Default  output  variable  list  for  the  Track  Option. 

7)  Default  output  variable  list  for  the  Table  Option 
for  VHTP ' s performed  in  the  multi-run  mode. 

8)  Initial  values  of  input  members  of  the  PARAM 
vehicle  descriptor  data  array  input  as  pairs 
of  array  element  number  and  initial  value. 

9)  Digital-to-analog  converter  variable  and  scale 
factor  assignments  input  as  pairs  of  digital 
variable  and  corresponding  scale  factor. 

10)  Analog-to-digital  converter  variable  and  scale 
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factor  assignments  input  as  pairs  of  digital 
variables  and  corresponding  scale  factor. 

11)  PARAM  data  array  members  which  are  used  to  re- 
define VHTP  condition  inputs  as  sequential 
numbers  representing  the  PARAM  array  element 
number  and  the  corresponding  variable  value 
for  the  initial  check  run  and  each  VHTP  1 to  6 . 

The  input  data  decks  for  the  four  passenger  vehicles  recently 
simulated  are  presented  in  Appendix  E.  Also  presented  in 
Appendix  E is  a sample  of  the  PARAM  Table  for  each  vehicle 
which  is  output  to  the  system  line  printer  prior  to  each  simu- 
lation run.  This  provides  PARAM  value  documentation. 

2. 7. 1.1  Vehicle  Identification 

The  first  data  card  is  used  to  document  the 
vehicle  being  simulated.  Any  message  confined  to  80  charac- 
ters is  allowed. 

2. 7. 1.2  Camber^  Caster^  and  Toe  Functions 

The  next  six  data  cards  define  the  front  wheel 
camber,  caster,  and  toe  and  the  rear  wheel  camber,  caster,  and 
toe  functions  for  wheel  displacement  from  the  unloaded  vehicle 
suspension  equilibrium  position.  One  function  is  defined  per 
data  card  which  contain  the  six  coefficients  required  to  spec- 
ify a fifth  order  polynomial  approximation  to  the  appropriate 
function.  The  order  of  the  data  is  CO,  Cl,  . . . , C5 . CO  is  the 
value  of  the  function  (camber,  caster,  toe)  at  the  equilibrium 
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suspension  position  of  the  unloaded  vehicle.  The  original 
data  for  these  functions  is  presented  in  Appendix  E. 

2. 7. 1.3  Brake  Torques 

The  next  group  of  data  cards  defines  the  front 
and  rear  brake  torque  functions.  The  function  is  specified 
as  pairs  of  data  points  per  card,  a value  of  brake  line  pres- 
sure and  the  corresponding  value  of  the  brake  torque.  A group 
of  cards  (2  to  20)  defining  each  function  is  ended  by  a data 
card  containing  the  number  99999.  A linear  interpolation 
routine  is  used  to  obtain  torque  values  for  brake  line  pres- 
sures between  specified  data  values.  Conventionally,  the 
front  and  rear  brake  torque  functions  are  identical  and  brake 
proportioning  is  accomplished  using  PARAM  array  elements  238-241. 

2 . 7 . 1 . 4 Side  Force  Shaping  Function 

The  next  group  of  data  cards  defines  the  func- 
tional relationship  between  the  side  force  and  circumferen- 
tial slip.  Pairs  of  data  points  are  input  per  card  as  percent 
of  slip  and  the  corresponding  percent  of  possible  side  force 
which  is  attained.  The  function  data  (2  to  20  cards)  is  ter- 
minated by  a card  containing  the  number  99999.  Linear  inter- 
polation is  used  between  data  points  to  obtain  intermediate 
functioi‘1  values. 

2 . 7 . 1 . 5 Interactive  Options 

The  next  group  of  data  cards  defines  the  names 
usable  in  response  to  the  OPTION  cue  for  simulation  inter- 
active control.  The  input  of  any  of  these  names  at  the  hybrid 
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control  console  in  response  to  the  OPTION  cue  will  enable  a 
specific  interactive  routine.  The  interactive  routines  are 
specified  in  Appendix  D. 

2. 7. 1.6  Track  Output  Variables 

The  next  group  of  cards  defines  the  initial  set 
of  interactive  variables  to  be  output  if  the  track  OPTION  is 
enabled.  Fifty  variables  may  be  selected  on  as  many  cards  as 
is  required.  This  group  of  cards  is  terminated  by  a blank 
card.  This  list  may  be  altered  interactively  using  the  Track 
OPTION. 


2 . 7 . 1 . 7 Table  Output  Variables 

The  next  group  of  cards  defines  the  variables  to 
be  output  at  the  end  of  each  run  when  the  multiple  run  execu- 
tion mode  is  enabled.  This  group  contains  seven  cards,  one 
card  for  each  VHTP  tthe  first  six)  and  one  for  the  check  run. 

A maximum  of  nine  variables  can  be  specified  per  card.  If 
the  Table  variables  are  respecified  interactively  via  the 
Table  OPTION  for  the  execution  of  a VHTP,  the  variables  in 
this  data  group  will  be  restored  when  that  VHTP  is  reselected. 

2. 7. 1.8  Vehicle  Descriptor  and  Tire  Data 

The  next  group  of  cards  is  used  to  input  the 
initial  values  of  variables  which  are  elements  of  the  PAR?^ 
data  array„  This  array  is  used  to  input  all  vehicle  descriptor 
and  tire  model  data.  Since  the  array  is  also  used  for  purposes 


24 


f 


BCE-T-0530 


Other  than  data  input,  such  as  storing  values  for  program  cal- 
culated initial  conditions,  program  flow  switch  values,  etc., 
all  PARAM  elements  need  not  be  initialized.  The  definitions 
of  all  PARAM  elements  is  presented  in  Section  4 of  Appendix  B. 
The  subset  of  PARAM  elements  which  represent  vehicle  descrip- 
tors or  tire  model  coefficients  is  presented  in  Section  5 of 
Appendix  B.  Data  is  input  one  PARAM  element  per  card  by  indi- 
cating the  PARAM  element  address  followed  by  the  assigned 
value . 


2 . 7 . 1 . 9 Digital-to-Analog  Variables 

This  group  of  cards  specifies  which  variables 
will  be  output  from  the  digital  to  the  analog  computer  and 
the  scale  factor  that  will  be  associated  with  the  digital-to- 
analog  conversion  (DAC) . Any  variable  name  which  has  been 
specified  as  an  interactive  variable  may  be  output.  If  the 
variable  output  is  used  in  the  closed  loop  vehicle  model,  the 
scale  factor  must  be, consistent  with  the  use  of  the  variable 
on  the  analog  computer.  If  the  variable  output  is  used  strictly 
for  strip  chart  recorder  display  purposes,  the  scale  factor 
can  take  on  any  rational  value.  The  maximum  expected  value 
of  the  variable  is  an  appropriate  starting  value.  Either  the 
variable,  scale  factor,  or  both  may  be  reassigned  via  the  in- 
teractive OPTION  DACA.  Forty-eight  cards  must  be  included,  one 
for  each  digital-to-analog  output  in  the  order  of  assignment 
to  the  DAO's  0-47.  Each  card  contains  a variable  name  followed 
by  its  normalizing  scale  factor. 

2.7.1.10  Analog-to-Digital  Variables 

This  group  of  cards  specifies  which  variables  will 
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be  input  from  the  analog  to  the  digital  computer  and  the  scale 
factor  that  will  be  associated  with  the  analog-to-digital  con- 
version (ADC) . Any  variable  name  which  has  been  specified  as 
an  interactive  variable  and  exists  on  the  analog  computer  may 
be  input.  The  scale  factor  must  be  consistent  with  the  use 
of  the  variable  on  the  analog  computer.  Either  the  variable, 
scale  factor,  or  both  may  be  reassigned  via  the  interactive 
OPTION  ADCA.  A change  in  variable  implies  a wiring  change  on 
the  analog  patch  panel.  Twenty-eight  cards  must  be  included, 
one  for  each  analog-to-digital  input  in  the  order  of  assign- 
ment to  ADC's  0-27.  Each  card  contains  a variable  name  followed 
by  its  analog  scale  factor. 

2.7.1.11  VHTP  Initialization  Data 

The  last  group  of  cards  allows  the  input  of  data 
that  is  used  for  initialization  of  the  simulation  for  perform- 
ing a specific  VHTP  maneuver.  Since  this  data  is  input,  VHTP 
conditions  can  easily  be  varied.  Twenty-seven  data  cards  are 
required  with  each  card  containing  a PARAM  element  address 
and  a value  for  the  variable  represented  by  that  address  for 
the  check  verification  run  and  each  VHTP  1 to  6 , in  that 
order.  The  PARAM  element  addresses  shown  in  the  data  lists 
are  required  for  VHTP  initialization.  However,  the  input 
order  is  not  fixed. 

2.7.2  Springs,  Shock  Absorbers  and  Load  Dependent  Data 

In  addition  to  the  data  deck,  the  spring  and 
shock  absorber  functions  are  simulation  inputs.  The  shock 
absorber  functions  are  input  using  analog  function  generators. 
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The  spring  forces  are  generated  using  a combination  of  analog 
and  digital  techniques.  In  order  to  achieve  correct  placement 
of  the  compression  and  rebound  bump  stops,  relative  to  the 
suspension  equilibrium  position,  suspension  deflection  para- 
meters must  be  specified  for  loaded  vehicle  conditions. 

2. 7. 2.1  Spring  Functions  ' * 

The  front  and  rear  spring  functions  are  input 
as  three  line  segment  approximations  to  the  actual  curve  for 
restoring  force  versus  suspension  deflection  from  the  equi- 
librium position.  The  three  segments  are  a linear  region 
for  plus  and  minus  deflections  about  the  equilibrium  position 
and  a segment  for  each  of  the  compression  and  rebound  bump 
stops.  The  bump  stop  segments  are  specified  by  a multiplier 
factor  which  is  the  ratio  of  the  curve  slope  at  the  bump 
stop  segment  relative  to  the  linear  segment.  A different 
multiplier  can  be  input  to  represent  the  rebound  and  compres- 
sion bump  stops  individually. 

The  linear  segment  is  generated  on  the  analog 
computer.  Bump  stop  impact  is  tested  in  the  digital  com.puter 
and  an  auxiliary  force,  representing  the  bump  stop  contribu- 
tion in  excess  of  the  linear  portion,  is  calculated  and  output 
digitally.  Bump  stop  locations  should  be  specified  relative 
to  the  unloaded  vehicle  equilibrium  suspension  position. 

2. 7. 2. 2 Shock  Absorber  Functions 


The  front  and  rear  shock  absorber  functions  are 
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generated  using  analog  function  generators.  Since  the  func- 
tion generator  is  a versatile  analog  device,  the  shock  absorber 
characteristic  can  be  represented  as  a general  function  of 
suspension  deflection  rate.  However,  in  practice,  representa- 
tion by  three  or  four  line  segments  has  proven  sufficient. 

The  function  may  be  specified  for  input  purposes  either  graphi- 
cally or  as  a list  of  slopes  for  various  suspension  deflection 
rates. 


2. 7. 2. 3 Load  Dependent  Data 

Since  the  HVHP  calculates  suspension  deflections 
relative  to  the  suspension  equilibrium  position  for  all  load 
configurations,  information  specifying  the  suspension  travel 
from  the  unloaded  vehicle  suspension  position  must  be  provided. 
Of  particular  interest  are  the  loaded  vehicle  configurations 
for  driver  control  used  in  VHTP ' s 1-3  and  for  automatic  con- 
troller used  in  VHTP ' s 4-6.  The  vehicle  parameters  which  are 
load  dependent  and  their  corresponding  PARAM  element  addresses 
are  as  follows: 

Variable  PARAI-1  Address 


MS 

1 

ZF 

4 

ZR 

5 

a 

6 

b 

7 

IX 

11 

lY 

12 

IZ 

13 

DELF 

92 

DELR 

93 
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Fig.  2-3a  TIME  HISTORIES  - STRAIGHT  LINE  BRAKING 
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Fig.  2-3b  TIME  HISTORIES  - STRAIGHT  LINE  BRAKING 
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Fig.  2-4a  TIME  HISTORIES  - BRAKING  IN  A TURN 
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Fig.  2-4b  TIME  HISTORIES  - BRAKING  IN  A TURN 


1/R(ft  M+  I )3(rad)  + v(ft/sec)  u(ft/sec)  ^s^(rad)  r(rad/sec)  Ay(g)  Ax(g) 


N = 9 


N = 11 


N = 13 


Fig.  2-5a  TIME  HISTORIES  - TURNING  ON  A ROUGH  ROAD 
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Fig.  2-5b  TIME  HISTORIES  - TURNING  ON  A ROUGH  ROAD 
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Fig.  2-6a  TIME  HISTORIES  - TRAPEZOIDAL  STEER 
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Fig.  2-6b  TIME  HISTORIES  - TRAPEZOIDAL  STEER 
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1/R(ft  M+  I /3(rad)  + . v(ft/sec)  u(ft/sec)  SswCrad)  r(rad/sec)  Ay(g)  Ax(g) 
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Fig.  2-7a  TIME  HISTORIES  - SINUSOIDAL  STEER 
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Fig.  2-7b  TIME  HIbl  UHltb  - SINUSOIDAL  STEER 


Fig.  2-8a  TIME  HISTORIES  - DRASTIC  STEER  AND  BRAKE 
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Fig.  2-8b  time  HISTORIES  - DRASTIC  STEER  AND  BRAKE 
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SECTION  3 

CONCLUSIONS  AND  RECOMMENDATIONS 

The  Hybrid  Computer  Vehicle  Handling  Program  (HVHP)  has 
demonstrated  realistic  dynamic  simulations  of  passenger  vehicles 
with  an  independent  front  suspension  and  either  an  independent 
or  solid  axle  rear  suspension.  The  performance  of  simulation 
runs,  especially  those  involving  the  six  vehicle  handling  test 
procedures  (VHTP) , are  inexpensively  and  easily  performed.  In 
addition,  the  performance  measuring  vehicle  Comparison  Vari- 
ables (CV)  for  each  VHTP  are  also  provided. 

Although  good  correlation  between  the  HVHP  and  full- 
scale  test  data  has  been  achieved,  it  is  recommended  that 
changes  in  all  areas  of  the  model,  including  the  tire/road  in- 
terface, the  vehicle  description,  etc.,  be  given  serious  con- 
sideration where  an  improvement  in  correlation  could  result. 
Also,  since'  the  HVHP  has  been  proven  adequate  for  the  simu- 
lation of  passenger  vehicles,  it  is  recommended  that  current 
plans  to  modify  the  HVHP  mathematical  model  to  allow  the  simu- 
lation of  recreational  and  commercial  vehicles  be  carried 
through  to  completion. 
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FOUR-WHEELED  VEHICLE  MATHEMATICAL  MODEL 
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APPENDIX  A 

FOUR-WHEELED  VEHICLE  MATHEMATICAL  MODEL 

1 . INTRODUCTION 

This  Appendix  contains  the  vehicle  mathematical  model 
which  was  implemented  on  the  APL/JHU  hybrid  computer.  A 
hybrid  simulation  block  diagram  is  shown  in  Figure  A-1. 

2.  SYSTEM  EQUATIONS 

2 . 1 Table  of  Contents 

Paragraph  Subject 


2.2 

Equations  of  Motion  (Ten  Degrees  of  Freedom) 

2.3 

Vehicle  Attitude  and  Position 

2.4 

Suspension  Forces 

2,5 

Wheel  Orientation 

2.6 

Resultant  Forces  and  Moments 

2.7 

Radial  Tiie  Force  and  Rolling  Radius 

2.8 

Tire  Circumferential  Force 

2.9 

Circumferential  Friction  Coefficient 

2.10 

Wheel  Slip 

2,11 

Wheel  Rotational  Equations 

2.12 

Brake  and  Drive  Torques 

2.13 

Tire  Side  Force 

2.14 

Tire  Side  Force  Friction  Coefficient 

2.15 

Velocities  of  the  Tire  Contact  Points 

2.16 

Combined  Slip  Angle  and  Camber 
Shaping  Function 

2.17 

Wheel  Slip  Angle 

2 . 18 

Wheel  Camber  with  Respect  to  the  Road 

2.19 

Wheel  Slip  Shaping  Function 

2.20 

Tire  Moments 

2.21 

Steering  Equations 

2.22 

Longitudinal  and  Lateral  Accelerations 
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Fig.  A-1  HYBRID  SIMULATION  BLOCK  DIAGRAM  OF  THE  AUTOMOBILE 
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2 . 2 Equations  of  Motion  (Ten  Degrees  of  Freedom) 

The  equations  of  motion  of  the  sprung  mass,  front 
wheel  unsprung  masses,  and  rear  axle  are  presented  below: 

(EM)  u + Y2  4 = (2  M)  (vr  - wq  - g 0 ) + E (1) 

(EM)  V - Y2  P ^ “ (2  M)  (wp  - ur  + g (})) 

+ E (2) 

4 

Mw=M  (uq-vp+g)-.E.S.  (3) 

s s ' ^ i.  ^ ^ 


-Y3  V + + 1^)  p - + I. 


xz  xz 


= Y3  - wp  - g (j))  + E 


(4: 


YtU+(I  +I^)q=Y  (vr-wq-g6)+EN  (5) 
2 y y 2 0u 


Y.  V - + i:  ) p + (I  + + i:)  r 


xz  xz 
= Yj_  - ur  + g 4))  + E N 


R z' 
^u 


(6) 


Y,  V-  (I  +1^)  p + (I  +1^)  r 
•1  ' xz  xz  ^ z z 

= Yj_  (wp  - ur  + g (ji)  + E 


(7) 


** 


M M T M a M 

uF  . uF  F . uF  . uF  V 

"2“  w + 4 p - 2 ^ “ ^1 


M 


uF 


(uq  - vp  + g)  + F^^^  + 


- Fyul 


(8 


*Solid  Rear  Axle 
**Split  Rear  Axle 
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where 
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UF 
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M, 


uR 


•R  "^R 
M. 


'(|)R 


w + 


uR  bq  ^uR  "^R  p 


M 


+ 


+ 6 


uR 


3 2 


:io) 

(11) 


M. 


uR 


(uq  - vp  + g)  + F^^3  + S3 


- Fyu3  TAN  /2Hrc 


R 


(12) 


^uR 


M 


uR 


— w + — bq  - 


^uR  "^R  p 


M 


+ 6 


uR 


4 2 


M 


1 1 

(uq  - vp  + g)  + F^^4  + 


+ Fy^4  TAN  l^^RC 


T 


R 


(13) 


Z M = M3  + 


= “uF  4 * ”uR  4 


(14) 

(15) 
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* 


* 


* * 
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M 

II 

(16) 

II 

^ N 
H 

Tp2 

“uF  + 4 > + Mur  b2 

(17)  * 

«UF  + 4 ) + “uR  + 4 ) 

(18) ** 

^XZ 

= Muf  a Ep  - Mur  b 

(19) 

Yi  = 

^uF  ^ “ ^uR  ^ 

(20) 

V2  = 

Muf  Zp  + Zp 

(21) 

Y3  = 

^2 

(22) 

2 . 3 Vehicle  Attitude  and  Position 

The  Euler  angles  and  x,  y,  z coordinates  in  fixed 
space  of  the  sprung  mass  are  computed  by  the  following 
equations : 


4)  = 

/t 

o 

(p 

+ 

CD 

dt  + (})  (o) 

(23) 

e = 

(q 

- rcl)) 

dt  + 0 (o) 

(24) 

>1/  = 

/t 

o 

(r 

+ q<^) 

dt  + 'i'  (o) 

(25) 

X - 

Cf 

(u 

COS  m 

- V SIN  'i')  dt  + x(o) 

(26) 

y = 

/t 

o 

(u 

SIN  ^ 

+ V COS  'F)  dt  + y(o) 

(27) 

z = 

o 

(-U0  + v4> 

+ w)  dt  + z (o) 

(28) 

*Solid  Rear  Axle 
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2 . 4 Suspension  Forces 


Suspension  forces/  including  effects  of  viscous  and 
coulomb  damping,  suspension  stops,  auxiliary  roll  stiffness, 
anti-pitch  and  anti-roll  for  front  and  rear  are  presented 
below: 

For  i = 1,  2 (Front) 


where 


^i  2 (a  + b)  9 ^iFi  ^2Fi  ^ 3Fi 

. Rp  ( S2  - 6i) 

- (-1)"  («.) 


- - F. 


(29) 


(30) 


where 


„ . = . 6 . + 

F 

(31) 

2Fi  Fi  1 

BSi 

BSi  ^ ^Fi ^^Fc 

1)  (6gj_ 

^Fc^  ''^Si  ^Fc 

(32) 

= Kj,.  + 

Kpi (Ap^ 

~ 1)  (6gj^  ~ f^ptp)  ^6gj_  >^2pr]n 

(33) 

= 0 

Otherwise 

(34) 

’-3^ . = C,  6 . + 
3Fi  1 1 

^2  “ ^1 

^ (A)'  ^ * (A) 

(35) 

= C2  6., 

« (A)  ih 

= C3  6^, 

“ ihlUs) 

I 

■H 

U 

II 

C4  - C3 

* (B)  ' ^ * (B) 
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(6 

-i)  = 

(Pr.  + 

P 

6 . + 

P 6^) 

F 

(36) 

pi 

1 

Fo 

FI 

1 

F2  1 

xui 

At^  • 

(6 

.)  = 

(R  + 

R , 

6 -•  + 

R 6?) 

F 

(37) 

Rl 

1 

Fo 

FI 

1 

F2  i 

yui 

Si 

= 

a 

2 (a  + 

b) 

g - 

^IRi 

^2Ri 

" ^3Ri 

(38)* 

+ (-1) 


Rr 


2 (a  + b)  ^ ^IRi  ^2Ri  ^3Ri 


(39) 


* * 


+ ( -1) 


i-1 


R 


R 


R 


(64-63)  + Ap^(6^)  + Aj^j_(6j_) 


where 


^iRi 

= Cr 

For  i 

= 3,  4 (Rear) 

(40) 

^2Ri 

^Ri  ^ ^BSi 

(41) 

F 

BSi 

^Ri  ^^RC  " 

'?si 

^RC^ 

' ^si  ^^RC 

(42) 

^Ri  ^^RT  ■ 

^ ^si 

^RT^ 

' ^si  ^ ^FT 

(43) 

= 0 

otherwise 

si 

" ■*■  <5rIN 

(44) 

^3Ri 

= °1  5 i + [''2  - 

“1] 

?(A)  ' 

ii"  ?(A) 

(45) 

= D2  ?i' 

^A)  i ^ ° 

= °3  ^i. 

0 5 " '(B) 
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where 


= D 


4 C 


r4  ~ ^sl 


^ (B) 


^ (B) 


6 


(A) 


6 /p.v  f ^in\  “ non-zero  break  points  on 

' ^ the  restoring  force 

characteristic . 


C^,  C2  / C^/  , D2  f D^/  D4  = slope  of  four-line 

segments  representing  the 
restoring  force  character- 
istic . 


and 


Ts 


s 

^3  = 2 'i^R  °3 

(46)* 

• "^s  • • 

^3  = 2 ^3 

(47)* 

"^s 

C4"^“2  <^R  ^3 

(48)  * 

^4  = " 2^  ^3 

(49)  * 

C 3 = 6 3 

(50) ** 

• • 

^ 3 = ° 3 

(51) ** 

^ 4 = 4 

(52) ** 

(53) ** 

^pi^  i^  ^ ^^Ro  '''  ^R1  i ^R2  ^xui 

(54) 

*Solid  Rear  Axle 

**Split  Rear  Axle 
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Aj^i(<Si)  (Rj^q  + Si  + Rj^2  ^yui 


(55) 


2 . 5 Wheel  Orientation 

The  orientations  of  the  wheels  with  respect  to  the 
sprung  mass  are  defined  by  the  following  equations: 

Q i 

(j)-,  = .2  C + A(|),  sgn  F (56) 

-L  1=0  IF  SI  ^1  SI 


^2  ==  "i^o  "^iF  ^S2  ^ ^^2  ^S2 


e i 

1=0  ”iR  'S3 


^3  ==  ^ 


(}).  = - E C C 
^ i=o  iR  S4 


'i' 

-6^  + 

Z D 

X 

6 

+ e 

1 

FWl 

i=o  iF 
6 

SI 

i 

K1 

^2 

'^FW2 

.2  D. 
1=0  IF 

'^S2 

^K2 

'i'3 

II 

cn 

-e- 

+ Ksj,  M 

ZR 

'i'4  = 'i'3 


9si 


b 

z 

D . 

^ 1 

+ K 

i=o 

iR 

'’S3 

SR 

ZR 

6 

“Z 

D 

i 

C 

+ K 

M 

i~o 

iR 

S4 

SR 

ZR 

6 

: . Z 

E. 

6^ 

+ 

t> 

CD 

(57) 

(58) 

(59) 

(60) 
(61) 
(62) 

(63) 

(64) 

(65) 

(66) 


1=0  iF  SI 


(67) 
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** 


* 


* 


* 


* * 
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“ 1 

0e-5  = E E 6 + A0  (68) 

i=o  iF  s2  ^ 


2 . 6 Resultant  Forces  and  Moments 

The  resultant  tire  and  suspension  forces  and 
moments/  including  the  anti-pitch  and  wheel  imbalance/ 
as  required  for  the  equations  of  motion  are  given  below. 

Forces : 


4 


F 

XU 

i=l 

F 

xui 

(69) 

1 

xui 

^Ri 

0 + F . COS 

Cl  1 

- F 

SIN  4'. 
Si  1 

(70) 

F 

yu 

4 

= . Z 
1=1 

F 

yui 

(71) 

1 ^ 
yui 

"^Ri 

* ^ ^Ci 

SIN  'F 

+ 

i 

F COS  'I' 

Si  i 

(72) 

F 

zu 

1 — 1 
11 
*rH 

II 

F 

zui 

(73) 

• 

zui  ~ 

^Ri 

(74) 

XLl 

“li 

Krim  ““SI 

RPSl 

COS 

®Li 

(75) 

XL2 

“l2 

Vm 

RPS2 

COS 

®L2 

(76) 

'ZLI 

«L1 

'"rim  “SI 

RPSl 

SIN 

1 — 1 
CD 

(77) 

ZL2  ^ 

«L2 

RrIM  “S2 

RPS2 

SIN 

CD 

(78) 
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Moments : 


^ ^^yul  ^yu2^ 

a - 

(F  , + F ,) 
yu3  yu4 

b 

(79) 

^^xu2  “ ■^"xul^ 

+ 

2 

^^xu4  ” ^xu3^ 

Tr 

2 

^ 4 

+ Z M + Z 

M 

i=l  ZFi  i=3 

ZRi 

E 

(j)U  2 

(S2 

■ Si) 

+ 

TS 

2 

(S4  - 

- F T 

(2^ 

+ <s. 

+ 

h 

- H 

yul 

F 

1 

1 

FC 

^yu2 

(^F 

+ 62 

4" 

^2 

- ^FC 

- (^yu3  ^ ^ V ^ ^ ill  Vi 


Z N 
^ eu 

(Si 

+ S2 

) 

a • 

(S3 

+S^)  b 

^xul 

+ 

+ 

hi) 

^xu2  ^^F 

+ 

F 0 
XU  3 

(^H 

+ 

63 

+ 

Tr 

2 

^R  + ^3) 

+ 

^xu4 

(^R 

+ 

^3 

- 

Tr 

2 

4>r  + h^j 

2 N A = 

(j)U 

, Tp 
2 

(S2  - 

s 

1) 

+ 

Tr 

2 

(S4  - S3) 

- 

j? 

^yul 

+ 

^1 

+ 

^1 

- 

- 

^yu2 

<"f 

+ 

‘^2 

+ 

^2 

Hpc) 

- 

^yu3 

<"r 

+ 

*^3 

+ 

^3 

^RC^ 

- 

F 

yu4 

<"r 

+ 

'4 

+ 

^4 

^RC^ 

+ 

2 

i^i 

M 

XFi 

+ 

4 

Z 

i= 

3 

M 

XRi 

(81)* 


(82) ** 
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^ Neu  = 'Si 

+ S2) 

a - 

(S3 

+ S4 ) b 

(83) ** 

^xul 

(Zp  + 

61  + 

hi) 

"**  ^xu2 

( + 

'^2 

+ h2 ) 

+ F 

xu3 

hi) 

+ *'xu4 

(Zr  + 

+ h^) 

Nr  = Nu3  \2 


R 


- h^(|) 
3^R 


- F 


It 


zu4\^2  ^4‘^r 


- F 


yu3  \2 


R 


(f)R  + h3 


- F 


R 


yu4 


*R  ^4 


To  4 

+ (S.  - S4)  s + 2 
2 


M 

i=3  XRi 


(84) 


where  ^ZRi'  ^XFi  NrI  front  and  rear  wheel 

aligning  torques  and  overturning  moments. 

2 , 7 Radial  Tire  Force  and  Rolling  Radius 

The  radial  tire  forces  and  the  rolling  radii  of  the 
tires  are  computed  by  the  following  equations: 


Ni  = Ni  (N  - N)' 


= 0, 


(R^  - hi)  > o 
(R^  - hi)  £ o 


(85) 


v/here 


h.  = - Z.  ; i = 1,2, 3, 4 
1 1 til 

T 

Z-,  = Z — a 9 + (p  + Z + 6 

1 2 F 


(86) 


= Z - a e - 


(})  + Zp  + 6^ 


Zo  = 


Z + b 6 + F (p  -I-  2„  + + 6-5 

2 F 2 F . J 


T 


R 


(87) 

(88)  * 


Z4  = Z+  b0--^(|>  + Zp 


2 ~^R 


(j)p  + 6 


(89) 
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Z 

3 


T 

Z -f-  b 0 + 5 ({)  + Z -r  6 

2 R 3 


(90) ** 


Z^  = Z+  b0-^(f)  + Zj^+64  (91)** 

and  the  initial  tire  loading  and  orientation  are  as 
shown  below: 


[^l(O) 

- ^3(0 

)l  ■ 

"rI 

“ *'2(0) 

a+b 

= R - 
w 

-3. 

2Kti 

^UF 

^ (ilb 

«s 

" *’4(0) 

= R - 

9 

M 

+ / a \ 

M 

w 

2Kt3 

UR 

\a+b/ 

sj 

Z = ^ 1^1  (0)  ^f)  ^ 1^3  (0)  + 

( 0 ) a+b 


Wheel  lift-off  indication  is  provided  by 

^MXi  i = l,2,3,4  (92) 

where 


^MXi 

Z 

Mxi 


> 

< 


o 

o 


v.’heel  i in  contact  with  tire-terrain  patch 

wheel  i not  in  contact  with  tire-terrain 
patch 


2 . 8 Tire  Circumferential  Force 

The  circumferential  tire  forces  for  both  driving  and 
braking  are  defined  below: 


(93) 


**Split  Rear  Axle 
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2 . 9 Circumferential  Friction  Coefficient 

The  circumferential  friction  coefficient  equations 
are  shown  below: 


Ui  = (SLIP)^  + for  (SLIP)^  > 

= m^^  (SLIP)j_  for  (SLIP)j_  < 


(94) 


Computation  of  the  slopes  for  the  curve  is 
performed  by  the  following  equations: 


m 


li 


(1.0  - 0.03|3^  + 3^1  57.3)  SN^ 


^SF  "^i 


mii  < 


SF 


(95) 


m 


2i 


ypF 


^li 


^Oi 


m 


li 


m 


2i 


y 


PR 


(PSF  ^PFi 

(1.0 

- 0.0 

6 1 3i 

+ 

3(  1 

57.3) 

SN  . 

(96) 

(1.0  - Sl^j 

1 ^ 1 

^ 1 1 

1 

^SF  ^^i 

m^i 

> 

'^SF 

^BFl  ^BF2 

F . 
^Ri 

(97) 

Msf 

(98) 

^li  " ^2i 

i = 

1 

(99) 

(a 

0.03 

|8i  + 

311 

57 

.3) 

SNj_ 

(100) 

^SR  ^^'i 

mii 

< 

^SR 

(ysR  “ Upr) 

(1.0- 

■0.06 

1 3 . 

3,"  1 

57.3) 

SN  . 

(101) 

(1.0  - Sli) 

1 1 

1 

>^SR  SNi 

m . 

2i 

> 

^SR 

^BRl  ^BR2 

^Ri 

(102) 
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^li  = ^SR 


UOi  = ^li  ' ^^21 


(103) 

(104) 


i = 3,4 


SN.  = 

1 NSO  Nt 


(105) 


2.10  Wheel  Slip 

Computation  of  circumferential  wheel  slip  is 
performed  by  the  following  equations: 

(SLIP)j^  = 1 for  > 1 

= 5 . for  -1  < 5 <1 

= -1  for  < -1 

(RPS)-  h.  

± ± TQo.  > 0 

U^,  COS  ^ . + V SIN  'i'.  ' Si  - 


where 


?i 


1 - 


Gi 


Gi 


(106) 


(107) 


2.11  Wheel  Rotational  Equations 

The  wheel  rotational  equations  required  to 
compute  wheel  slip  are  presented  below: 


■WF 


'WF 


^ (RPS), 


dt 


= -Fci  h ^ ^E1 


-PC2  + TQ^ 


(108) 


(109) 


I 


Iq  (AR)2 


WR  ' 


dt  (RPS) 3 


+ 


Id  (AR)2 


^ (RPS) , 
dt  4 


= -F^_  h_  + TQ_  X ^ 

C3  3 3 b3 


(110) 
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I (AR) 
D 


^ (RPS)3 


= -F  h.  + TQ,  X , 
C4  4 ^4  B4 


^WR 


I (AR) 
D 


IE 


(111) 


where 


(RPS)  . = (RPS)  . + ^ 

1 lo  o dt 


(RPS) . 


dt 


(112) 


For  (SLIP) ^ = 0 at  t = 0 


(RPS).  = ^Gi(o)  COS  ^j(o)  + VGi(o)  SIN  (o) 


10 


h . (o) 
1 


and  where 


TQl  = TQbi 

(114) 

TQ2  = TQ^2 

(115) 

TQ3  = TQp  + 

(116) 

TQ4  = |5  tQb  + 

^B4 

(117) 

2 . 12  Brake  and  Drive  Torques 

The  drive  torques  generated  to  maintain  a constam: 
velocity  are  computed  by: 


TQ  = K„  (Vp  - u) , for  TQ^  ^ TQ^ 

^ ^ MAX 


(118) 


= TQ„  , otherwise 
MAX 


(119) 


where  is  the  desired  velocity. 


assigned 


Values  of  1000  in-lb/in/sec  and  6000 
to  Kijiq  and  respectively.  When 


in-lb  were 
braking  is 
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investigated,  the  drive  torque  is  zero  and  the  brake  torque 
magnitudes  are  determined  from  input  data  functions. 


"’°B2 

= FF (PFL) , 

in-lbs 

(120) 

II 

m 

^B4 

= FR(PFL) , 

in-lbs 

(121) 

where  PFL  is  an  input  value  for  brake-line  pressure. 


2.13  Tire  Side  Force 


The  nonlinear  tire  side  forces  are  computed  using 
the  following  equation: 


^Si  ^yi  ^Ri 


g (3^) 


F.  (SLIP.) 
1 1 


(122) 


2.14  Tire  Side  Force  Friction  Coefficient 


The  side  force  coefficient  of  friction  is  defined 


below 


^yi  = ^Ri  + =vi  + ^3  + B,  SN.  (123) 

i = 1,2 


(124) 


i = 3,4 


and 


C . = Ju^^  + v^? 
VI  ^ Gi  Gi 


(125) 


2.15  Velocities  of  the  Tire  Contact  Points 


The  velocities  of  the  tire  contact  points  along  the 
vehicle  axes  are  computed  by  the  following  equations: 

Tx:, 


Ui=u-— r+Zpq 


(126) 


U2  = u + — r + Zp  q 


(127) 
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■"R 

U3  = u - — r 
T 

R 

U4  = u + — r 
Vj^  = v + ar- 
V2=v+ar- 
= V - br  - 
V2  = V - br  - 
V4  = V - br  - 
V4=v-br- 

= w - aq  + 

W2=w-aq- 

= w + bq  + 

= w + bq  + 

W4  = w + bq  + 

w , = w + bq  + 
4 

*Solid  Rear  Axle 
**Split  Rear  Axle 


"f  p 
P 

"r  p 


- p 


- p 


■ ^3  *P  ^r’ 


- h3  P 


- (p  + 


- P 


+ 6 


+ S 


■R 


2 + P) 


^R 

— P 


R . 

2 (^R  + P) 


T 

R 

~ P 


(128) 

(129) 

(130) 

(131) 

(132) 

(133) 

(134) 

(135) 

(136) 

(137) 

(138) 

(139) 

(140) 

(141) 


* 


* * 


* 


** 


* 


* * 


* 


* * 
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The  wheel  velocities  in  the  ground  plane  are  obtained  by: 


. = u.  + 0w. 
Gi  1 1 


(142) 


. = V . - d)w . 
Gi  1 1 


(143) 


2.16  Combined  Slip  Angle  and  Camber  Shaping  Function 

The  dimensionless  side  force  shaping  function  for 
slip  angle  and  camber  is  as  follows: 


g(3.)=3.  -t3.  |3.|+^3.^  if|3.|<3 

1 1 -^1  1 ^'1  i' 


(144) 


^i 


if  3 . > 3 

' 1 ' = 


i = 1,2, 3, 4 


where  3^^  is  defined  by 
For  A^, 


_ -^1  ^Ri  (^Ri  “ “^2)  " ^o  ^2  _ 

3j=  au-F.  (3. +3.) 

1 ^2  ^yi  ^Ri  11 


i = 1,2 


(145) 


^2  ^3  ^^4  ^Ri^  ^Ri  ^CGi 

3-  = A4  lAi  F^i  (FRi  - A2)  - Aq  A2 


(146) 


If  F„.  > AQ.^  A , 

Ri  T 2 


3.  = 


A^  A2  AS^iji  (Afiiji  ~ 1)  ~ Aq 


u . F^. 
yi  Ri 


(3i  + 3^) 


i = 1,2 


(147) 


3;  = 


A'2  A^^iji  (A4  — AJ^ip  A2 ) 4*CGi 
A^  A^  A^,^  {A^^  - 1 ) - A 


o 


(148) 
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For  F < Rfi  RA  , 
Ri  = T 2 


i = 3,4 


_ RAj  ^Ri  (^Ri  - ^^2)  - , 

RA^  u . F^. 


RA^  u . Ft^  • 
2 ^yi  Ri 


(149) 


RA^  RA3  (RA4  - Fj^i)  Fj,. 

6i  = RA4  ^Ri  ‘^Ri  - ‘^2'  - '^2! 


(150) 


I f F , > RQ.  RA^  , 

Ri  T 2' 


i = 3,4 


_ RAj_  RA2  R^^  (Rfiij,  - 1)  - RA 

3.  = T y (3.  + 3D 

1 I-* * **...-  1 1 


e;  = 


yi  Ri 

RA2  R^iji  ( RA^  ~ R^iji  '^^A2  ) ^CGi 


i RA^  [RA^  RA2  Rfipj,  (Rfi^  - 1)  - RA^i 


(151) 


(152) 


2.17  Wheel  Slip  Angle 


3 . = tan 
1 


-1 


^G1 

u 

Gi 


- y.  sgn  u^. 


(153) 


2.18  Wheel  Camber  with  Respect  to  the  Road 


The  camber  angles  of  the  wheels  measured  with 
respect  to  the  road  are  given  by: 

cjjcGi  = 9 SIN  'i'j_  + 4)  COS  + 4>£  + K^p  Fg^  i = 1,2  (154) 
c^CGi  = 6 SIN  4'.  + CD  COS  + 4>i  + F^.  i = 3,4  (155) 

. = 0;  i = 3,4  (156) 

^CGi 

*Solid  Rear  Axle 

**Split  Rear  Axle 
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2,19  Wheel  Slip  Shaping  Function 

The  dimensionless  side  force  shaping  function  for 
circumferential  slip  is  empirically  derived. 

(SLIP^)  = input  table  (157) 


F . 
1 

SLIPj^ 

1„00 

0.0 

0.99 

5.0 

0.97 

10.0 

0.93 

15.0 

0.86 

20.0 

0.72 

30.0 

0.56 

40.0 

0.34 

60.0 

0.25 

80.0 

0.18 

100.0 

2.20  Tire  Moments 


The  tire-road  reaction  moments  acting  about  the 
kingpins  are  computed  by  the  following  equations: 


M, 


Ti 


xui 


PT.  SIN  'F.  - y . COS  'F. 
1'  1 1 

-f  F 


(158) 


+ h.  ((p.  COS  'F.  - ) 

11  1 Si 


yui 


-PT.  KK.  COS  'F. 
11  1 


y SIN  'i'.  + h.  (<p-  SIN  'F.  - ) 

■^SAi  1 1 1 bi 


zui 


-PT.  (4>  . COS  'F.  + 0^  . SIN  ) 
1 Si  i i^i  1 


^ ysAi  ‘®si  A - Ai  A> 

+ h.  *.  SIN  f.  - 6„.  <p.  COS  f.) 

1 ^Si  ^1  1 Si  ^1  1 

- F . (Y  + 

^XLi  ^^SAi  ' 


+ M 
. ZF 

i = 1,2 


^S1  ■ ^SAl 


(159) 


(t  = (b  +6 
S2  SA2  2 


(160) 
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The  tire  aligning  torques  are  defined  as 

1 

“zFi  = ^Ri  ^ ^Si  ^ ^3  ^Ri 

i = 1,2 

1 

= (AR^  F + AR  If  1)  F + AR  F ( d)  ) '^  (162) 
ZRi  1 Ri  2 Si  Si  3 Ri  CGi 

i = 3,4 


The  tire  overturning  moments  are  defined  as 

M = OF  + (OF  + OF  (j)  ) F F . + OF  (})  F 

XFi  0 12  Si  Ri  3 CGi  Ri(163) 

i = 1/2 

MxRi  = °R0  + (°Rl  + °«2  *CGi>  ^Si  ^Ri  ^ % *CGi 

i = 3,4 


2.21  Steering  Equations 

The  steering  equations  are  presented  below: 


(r+6  )I  =-H6  +M  -M 

FWi  Fw  i FWi  Ti  SSi 


i = 1,2 


^■^CR  ^CR 


• T Mqq-l  Mqqp 

-C^  y + _E  + 

FCR  CR  ^CR  a,,  a^  „ 

p LI  L2 


=FCR  = * <i'cR> 
conditions : 

T^  = {Kg^  (6g^  - N(.  ^ - fsP  sgn  6^^,)  } 


SW‘ 


if 


6^  - CR 

SW  G 


^SP 


(165) 


(166) 


(167) 


otherwise  T = 0 
P 
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^ • 


2 .22 


^SLi 


FWi 


^CR 

^Li  ) 


■pi 

2 sgn  6 


FWi 


if 


'FWi 


CR 

^Li 


otherwise  Flgg^^  = 0 


Longitudinal-  and  Lateral  Accelerations 

The  longitudinal  and  lateral  accelerations  of 
the  sprung  mass  are  computed  by  the  following 
equations : 

A = u - vr  + wq 
A = V + ru  - wp 

y 


(168) 


(169) 

(170) 
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3.  NOTATION  AND  LIST  OF  SYMBOLS 


3.1  Notation 


The  time  derivative  of  a variable  is  indicated  by 
a dot  over  the  symbol  for  the  variable  li.e.,  5 = do , 


dt 


Also;  1 degree  = 0.0174532925  radians 
1 g = 386.4  in/sec^ 

The  follov7ing  subscript  notation  is  employed: 
F = front 

R = rear,  or  rear  axle 
s = sprung  mass 
u = unsprung  mass 

i = wheel  number,  1 - right  front,  2 - left 
front,  3 - right  rear,  4 - left  rear 


3 . 2 List  of  Symbols 

a,b  = distances  along  the  vehicle  fixed 

Xg  axis  from  the  sprung  mass  center 
' of  gravity  to  the  spin  axes  of  the 

front  and  rear  wheels,  respectively, 
in . 


AF  2^ , AF  2 , AF  ^ 


front  wheel  aligning  torque 
function  coefficients. 


a, . = length  of  steering  linkage  arm, 
in.  - i = 1,2 

a = length  of  pitman  arm,  in. 

A^j_  = anti-pitch  forces  in  front  and  rear 
suspensions,  lb. 

AR  = drive  axle  ratio. 

Ao-i  = anti-roll  forces  in  front  and  rear 
suspensions,  lb. 
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AR]_,  AR2  / AR^  = rear  wheel  aligning  torque 

function  coefficients. 

A^  = longitudinal  acceleration  of 
the  sprung  mass,  gees. 

Ay  = lateral  acceleration  of  the 
sprung  mass,  gees. 

Aq  , Aj_ , A2  = coefficients  in  quadratic  cor- 
nering stiffness  function  for  a 
pneumatic  tire,  front. 


A^,  A = coefficients  in  quadratic 

camber  stiffness  function  for 
a pneumatic  tire,  front. 


AJ^^,  RJ^^  = multiple  of'A2  and  RA2  at  which 
the  assumed  parabolic  variations 
of  small-angle  cornering  and 
camber  stiffness  with  tire  load- 
ing are  made  constant. 

B^,  B^ , B^,  B^  = constant  coefficients  for  curves 

fitted  to  the  lateral  friction 
coefficient  properties,  front 
tires. 


viscous  damping  coefficient  of 
steering  system  connecting  rod, ] b-sec/in . 


CpcR  = coulomb  damping  coefficient  of 

steering  system  connecting  rod,  lb. 

Cpf  Cj^  = viscous  damping  coefficient  for 
a single  wheel , effective  at  the 
wheel  for  the  front  and  at  the 
spring  for  the  rear  suspension, 
at  the  front  and  rear,  respectively, 
Ib-sec/in . 

C',  Cp  = coulomb  damping  for  a single  wheel, 
effective  at  the  wheel  for  the  front 
and  at  the  spring  for  the  rear  sus- 
pension, at  the  front  and  rear,  res- 
pectively, lb. 
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^iF'  ^iR 

= coefficients  for  wheel  camber 
angle  versus  suspension  deflec- 
tion polynominal  function,  front 
and  rear,  respectively,  i = 1, 

• • • , 6 • 

^vi  = 

= total  contact  point  velocity  of 
wheel  i,  in/sec. 

^iF'  ^iR 

= coefficients  for  wheel  toe  angle  versus 
suspension  deflection  polynominal 
function,  front  and  rear,  respec- 
tively , i = 1 , . . . , 6 . 

^iF 

= coefficients  for  front  wheel  caster 
angle  versus  suspension  deflection 
polynominal  function,  i = 1,  6. 

^BSi  " 

= suspension  forces  increment  pro- 
duced by  spring  deflections  at  com- 
pression and  rebound  bump  stops,  lb. 

^Ci  = 

= circumferential  tire  force  at  wheel  i, 
lb. 

FF,  FR  = 

= front  and  rear  brake  torque  curves 
which  are  input  as  functions  of 
brake  line  pressure,  in  - lb. 

Fi  = 

= side  force  shaping  function  for 
braking  slip. 

^Ri  " 

= radial  tire  force  at  wheel  i,  lb. 

^Si  = 

= lateral  tire  force  at  wheel  i,  lb. 

^XLi'  ^ZLi 

= unbalanced  forces  on  front  wheel 
due  to  wheel  imbalance,  lb. 

F . , F . , F . = 
xui  yui  zui 

= components  of  the  tire  force  on 
wheel  i in  the  body  coordinate 
system,  lb. 

= 

= summation  of  the  forces  acting  on 
the  sprung  -masS'  along  the  vehicle 
X^,  Yg  and  Zg  axes,  lb. 
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' ^iPi  ~ coulomb  damping  forces  in  front 

and  rear  suspensions,  at' an'  indi- 
vidual wheel,  effective  at  wheels 
in  front  and  at  spring  locations 
- in  rear,  lb. 

^2Fi'  ^2r‘  ~ suspension  forces  produced  by 

^ deflection  of  springs  and  elastic 
travel  limits,  lb. 

coulomb  damping  forces  in  front  and 
rear  suspensions,  at  an  individual 
wheel,  effective  at  wheels  in  front 
and  at  spring  locations  in  rear,  lb. 

^2Fi'  ^2Ri  “ suspension  forces  produced  by 

deflection  of  springs  and  elastic 
travel  limits,  lb. 


3Fi 


3Ri 


F^pj_/  ^3^1  = viscous  suspension  damping  force 
due  to  shock  absorbers,  effective 
at  wheel  i,  lb. 

g = acceleration  of  gravity. 

g('3j_)  = side  force  shaping  function  for 
combined  slip  angle  and  camber 
angle  at  wheel  i. 

H = distance  between  ground  and  roll 
center  of  front  suspension,  in. 

h^  = rolling  radius  of  wheel  i,  in. 

Hj_  = front  wheel  viscous  damping  co- 
efficient, in-lb/rad/sec. 

= distance  between  center  of  rear 
axle  and  roll  center  of  rear  sus- 
pension, in. 

= drive  line  moment  of  inertia  about 
its  spin  axis,  lb-sec“-in. 

= moment  of  inertia  of  one  front  wheel 
about  the  kingpin  axis,  Ib-sec'^-in. 
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= rear  unsprung  mass  moment  of 
inertia  about  a line  through  its 
center  of  gravity  and  parallel  to 
the  Xg  axis,  Ib-sec^-in, 

I . = rotational  inertia  of  individual 
^3  wheel  about  its  spin  axis,  at 

front  and  rear  (j  = F,  R) , res- 
pectively, Ib-sec^-in. 


= moment  of  inertia  of  sprung  mass 
about  the  Xg  axis.  Ib-sec^-in. 

I = moment  of  inertia  of  sprung  mass 
^ about  the  Yg  axis,  Ib-sec^-in. 

= moment  of  inertia  of  sprung  mass 
about  the  Zg  axis,  Ib-sec^-in. 


I 


xz 


product  of  inertia  of  sprung  mass 
about  the  Xg  , Z.g  axes,  Ib-sec^-in. 


X 


moments  of  inertia  of  unsprung 
masses,  Ib-sec^-in. 


^CF'  ^CR  ~ fi^orit  and  rear  lateral  compliance 
camber  coefficients,  respectively. 

Kpi , = suspension  load-deflection  rate  for 

a single  wheel  in  the  quasi-linear 
range  about  the  design  position, 
effective  at  the  wheel  for  the 
front  and  at  the  spring  for  the 
rear  suspension,  at  the  front  and 
rear,  respectively,  Ib/in. 


Kgg  = roll  steer  gain  of  rear  wheels  rela- 
tive to  the  vehicle  coordinate  system, 
rad/rad. 

= steering  column-gear  box  flexibility, 
in-lbs/rad. 

K . = steering  linkage  flexibility  between 
^ the  output  of  the  steering  unit  and 
the  kingpin,  in-lb/rad.  i = 1,2 
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Kgj^  = rear  aligning  torque  compliance 
steer  coefficient. 


= radial  tire  rate  in  quasi-linear 
range  for  a single  tire,  Ib/in. 


Ktq  = gain  in  drive  torque  equation  for 
controlling  vehicle  velocity, 
in-lbs/in/sec . 


m.ii,  ^2i  “ and  decay  slopes  of  the  cir- 

cumferential friction  coefficient 
versus  wheel  slip  function. 


ZM  = total  vehicle  mass,  Ib-sec^/in. 


Mcr  = mass  of  steering  system  connecting 
rod,  Ib-sec^/in. 

Mr.  = unbalanced  front  wheel  mass, 
Ib-sec^/in . 


Mg  = sprung  mass,  Ib-sec^/in. 

Mgsi  = steering  torque  applied  by  steering 

system  connecting  rod,  in-lb. , i = 1,2 

M^^  = wheel  aligning  moment,  in-lb.,  i = 1,2 

' 2 

M^p  = total  front  unsprung  mass,  lb-sec  /in. 

^XFi • ^XRi  “ overturning  moments  acting  on  the 

front  and  rear  unsprung  masses,  res- 
pectively, lb-in. 


^ZFi'  ^ZRi 


front  and  rear  tire  aligning  torques, 
respectively,  lb-in. 


Ml  = M2 


M- 


2 


M. 


uR 


front  unsprung  mass  at  a single 
wheel,  Ib-sec^/in. 

total  rear  unsprung  mass,  Ib-sec^/in. 
(solid  axle) 


Mur 

2 


rear  unsprung  mass 
Ib-sec^/in.  (split 


at  a single  wheel, 
axle) 
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= gear  ratio  of  steering  gear  box. 

= summation  of  roll  moments  acting 
on  solid  rear  axle,  lb-in. 

= summation  of  roll  moments  acting 
on  the  unsprung  mass,  lb-in. 

ZN.  = 
0u 

= summation  of  pitch  moments  acting 
on  the  unsprung  mass,  lb-in. 

2N,^,u  = 

= summation  of  yaw  moments  acting 
on  the  unsprung  mass,  lb-in. 

OFq,  of^,  OF^.  OF3  = 

= front  tire  overturning  moment 
coefficients . 

ORq,  OR^,  OR2,  OR3  = 

= rear  tire  overturning  moment 
coefficients . 

Pi  q,  r = 

= scalar  components  of  angular  veloc- 
ity of  the  sprung  mass,  taken  along 
Xr,  Yg,  Zg  axes,  respectively, 
rad/sec . 

^BFl'  ^BF2'  ^BRl'  ^BR2  " 

= coefficients  for  peak  braking  co- 
efficient of  friction  function, 
front  and  rear,  respectively. 

^FO'  ^Fl'  ^F2 

= anti-pitch  coefficients  for  front 
suspension . 

^FL 

= brake  line  pressure,  Ib/in^. 

^RO'  ^Rl'  ^R2  "" 

= anti-pitch  coefficients  for  rear 
suspension . 

PT  = 

= caster  trail  of  front  wheels,  in. 

0 

II 

= coefficients  in  a quadratic  cor- 
nering stiffness  function  for  a 
pneumatic  tire,  rear. 

1^3  / " 

= coefficients  in  a quadratic  camber 

stiffness  function. for  a pneumatic  ^ 

tire,  rear. 
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^2'  ^3'  ^4  “ constant  coefficients  for  curves 

fitted  to  the  lateral  friction 
coefficient  properties,  rear  tires- 


Rp,  = auxiliary  roll  stiffness  (suspen- 
sion stiffness  in  roll) , at  the 
front  and  rear  suspensions,  res- 
pectively, in-lb/rad. 

RpO ' R f,  R = anti-roll  coefficients  for  front 
^ suspension. 

(RPS)j^  = rotational  velocity  of  wheel  i, 
rad/sec . 


^RO ' ^R1 ' ^R2  ~ anti-roll  coefficients  for  rear 

suspension . 

R^  = undeflected  radius  of  wheels,  in. 

R^r  = width  of  wheel  rim,  in. 

S.  = total  suspension  force  produced  by 
the  combination  of  springs,  travel 
stops,  viscous  damping,  friction, 
and  auxiliary  roll  stiffness,  ef- 
fective at  the  wheel  for  the  front 
. suspension,  at  the  spring  location 

' for  the  solid  rear  axle  suspension 

and  at  the  wheel  for  the  independ- 
ent rear  axle  suspension,  at  wheel  i 
lb. 


= wheel  slip  ratio  at  which  peak 
braking  coefficient  of  friction 
occurs . 


SN . = skid  number  ratio  of  simulated 
^ vehicle  operating  surface  to  tire 
data  measurement  surface. 

(SLIP)i  = longitudinal  braking  slip  at  wheel  i 

Tp,  Tj^  = wheel  tread  width  at  front  and  rear, 
respectively,  in. 


T 


P 


Pitman  arm  torque  applied  to  con- 
necting rod,  in-lb. 
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Tg  = distance  between  spring  mountings 
on  solid  rear  axle,  in. 

TQg^  = brake  torque  at  wheel  i,  in-lb. 

= drive  torque  at  wheel  i,  in-lb. 

= maximum  drive  torque,  in-lb. 

D max 

u,  V,  w = scalar  components  of  linear  veloc- 
ity of  the  sprung  mass,  taken  along 
the  Xg,  Yg,  Zg  axes,  respectively, 
in/sec. 


Ug^  = longitudinal  velocity  of  the  tire- 
road  contact  point  of  wheel  i, 
in/sec . 


Vg^  = lateral  velocity  of  the  tire-road 
contact  point  of  wheel  i,  in/sec. 

u.,  Vj^ , Wj^  = linear  velocity  components  of  the 
^ wheel  centers  along  the  vehicle 

axes,  in/sec. 

v^  = desired  vehicle  velocity,  in/sec. 

^ X,  y,  z = coordinates  of  vehicle  center  of 
' gravity  in  the  inertial  coordinate 

axes  system,  in. 


Xg,  Yg,  2g  = coordinates  of  vehicle  center  of 
gravity  in  the  vehicle  fixed  co- 
ordinate system,  in. 

Y^g  = linear  displacement  of  steer  con- 
necting rod,  in. 

Y = distance  along  the  wheel  spin  axis 
^ from  the  kingpin  axis  to  the  wheel 
center  line,  in. 


z = static  distance  along  the  Z-r  axis 
between  the  center  of  gravity  of 
the  sprung  mass  and  the  spin  axis 
of  the  front  wheels,  in. 


Z = wheel  contact/lift-off  indicator. 
MXi 
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= static  distance  along  che  Zp  axis 
between  the  center  cf  gravity  of 
the  sprung  mass  and  the  roll  center 
of  the  rear  suspension,  in. 

3 = vehicle  body  angle  of  sideslip,  rad. 

= sideslip  angle  at  wheel  i,  rad. 

3 . = non-dimensional  slip  angle  variable 
^ for  wheel  i. 


3^  = carober  thrust  angle  at  wheel  i,  rad. 

'^FlN'  “^RIN  ~ static  displacement  change  in  front 
and  rear  suspensions  due  to  vehicle 
load  configuration,  in. 


= front  wheel  steer  angle  produced  by 
^ steering  system,  rad. 

6 . = total  front  suspension  deflection 
from  the  unloaded  vehicle  configu- 
ration, i ==  1,2,  in. 


^SW  ~ steering  wheel  angle,  rad. 

^1>'  *^3  “ suspension  deflection  relative  to 

' the  vehicle  from  the  positions  of 

static  equilibrium,  at  the  right 
front  wheel  center,  left  front 
wheel  center,  and  rear  axle  roll 
center,  respectively,  in,  (solid 
axle) 

6 , 6 = suspension  deflection  relative  to 

the  vehicle  from  positions  of  static 
equilibrium,  at  the  right  rear  wheel 
center  and  left  rear  wheel  center, 
respectively,  in.  (split  axle). 


A0-  = static  front  wheel  caster  bias, 
i = 1,2 

Acf).  = static  front  wheel  camber  bias, 

^ i = 1,2 

e„.  = static  front  v;heel  toe  bias,  i = 1,2 

X\1 
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£p^  = free  play  in  steer  of  front 
wheels,  rad. 

= free  play  in  steering  gear  box, 
rad . 

= total  rear  suspension  deflection 
from  the  unloaded  vehicle  con- 
figuration, i = 3,4,  in. 

C3/  ^4  ~ suspension  deflections  relative 
to  the  vehicle,  from  the  posi- 
tions of  static  equilibrium, 
measured  at  the  right  and  left 
rear  spring  positions,  respec- 
tively, in. 

0^.  = front  wheel  angular  displacement, 
rad. 


0g . = caster  angle  as  a function  of 

relative  vertical  deflection  be- 
tween wheel  and  body,  rad. 

= brake  torque  multipler  for  wheel  i. 

Ap^,  Ap,p,  Ag^,  Ap,p  = terms  by  which  Kp^  and  are  mul- 

tiplied to  represent  the  suspension 
' spring  rate  when  the  suspension 

deflection  stops  are  encountered. 

y / y..  = peak  braking  coefficient  of  fric- 

PF  PR  tion,  front  and  rear,  respectively. 

^Sf'  ^SR  ~ sliding  coefficient  of  friction, 
front  and  rear,  respectively. 


y . = lateral  friction  coefficient. 
yi 


circumferential  friction  coeffi- 
cient . 


‘'Oi'  ‘'ll 


values  of  circumferential  friction 
coefficient  at  braking  slip  equal 
to  zero  and  one,  respectively. 
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(})/  6/  'i'  = Euler  angles  - roll,  pitch,  and 

yaw  angles  - defining  the  attitude 
of  the  sprung  mass  relative  to  the 
space-fixed  axis  system,  rad. 


. = camber  angle  of  wheel  i relative 
^ to  its  tire-terrain  contact  plane, 
rad. 

(j) . = right  front,  left  front,  right 
rear  and  left  rear  wheel  camber 
angles,  respectively,  relative  to 
the  vehicle-fixed  coordinate  axes, 
positive  when  clockwise  as  viewed 
from  the  rear,  as  a function  of 
relative  vertical  deflection  be- 
tween wheel  and  body,  rad. 

= angular  displacement  of  the  rear 
axle  relative  to  the  vehicle  about 
a line  parallel  to  the  axis 
through  the  rear  axle  roll  center 
(positive  when  clockwise  as  viewed 
from  the  rear) , rad. 

= kingpin  inclination  angle,  right 
and  left  front,  respectively,  rad. 
i = 1,2 


4'.  = heading  angle  of  right  front,  left 
front,  right  rear  and  left  rear 
wheels  relative  to  vehicle  coordi- 
nate axes  system,  positive  for 
clockwise  steer  as  viewed  from 
above  vehicle,  rad. 

= suspension  deflections  for  initial 
wheel  contact  with  front  and  rear 
compression  bump  stops  from  the 
positions  of  static  equilibrium 
relative  to  the  vehicle  for  quasi- 
linear  load-deflection  character- 
istics of  the  springs,  in. 
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^FT'  ^RT  ~ suspension  deflections  for  initial 
wheel  contact  with  front  and  rear 
rebound  bump  stops  from  the  posi- 
tions of  static  equilibrium  rela- 
tive to  the  vehicle  for  quasi-linear 
load-deflection  characteristics  of 
the  springs,  in. 


. I 


It 
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Fig.  A-2  REAR  AXLE  REPRESENTATION 


,1 
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Fig.  A-3  ANALYTICAL  REPRESENTATION  OF  THE  FOUR-WHEELED  VEHICLE 
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APPENDIX  B 

FOUR-WHEELED  VEHICLE  HYBRID  SIMULATION 
IMPLEMENTATION  DOCUMENTATION 

1.  PRESENTED  HERE  IS  THE  COMPUTER  LISTING  OF  THE 
DSL/91  DIGITAL  STATIC  CHECK  PROGRAM 
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* 

♦ LISTING  OE  DSL/91  DIGITAL 

PROGRAM 

M A^’N 

10 

TITLE 

###  ?P03:52  VEHICLE 

SIMULATION  ### 

M AIN 

20 

INCON 

SHAPE1 

=- .0065, SHAPF2=-. 0037,SHA?f3 

=.CC50 

,SHAP^4 

=.0029 

M A I N 

30 

TNCON 

DEL  IDT 

=10.  ,DEL1 

=.3830  ,DEL2DT 

= 15. 

,DEL2 

= 1.866 

M AIN 

49 

INCON 

THETA  1 

=60.  ,THETA2=37.5  ,FPP1 

= 1 . 

,FRP  2 

=-0.6 

M AIN 

50 

TNCON 

DFW2DT 

=37.  ,DFW2 

=0.15  ,YCRDT 

=8C. 

, YCR 

= 2.55 

MAIN 

6 0 

INCON 

RPS  1 

=43.06  ,RPS2 

=43.06  ,RPS3 

=43.057 

, XPS3DT 

=10000. 

MAIN 

70 

INCON 

RPS4 

=43.057,XPS4DT=10000.,DFW1DT 

= 30. 

, DFM  1 

=0.3  5 

MAIN 

80 

INC(^N 

PS  11 

=.2140  ,PSI2 

=.2040  ,PSI3 

=.01667 

,PSI4 

=-.''150 

MAIN 

90 

INCON 

ZO 

=-23,4  ,THEO 

= . 00209  , PHIO 

=.00300 

, PDTC 

=-5C0.0 

MAIN 

100 

INCON 

UO  1 

=.120  ,U02 

=1.01  ,UC3 

= .900 

,U0a 

=2.000 

M AIN 

1 10 

INCON 

U1  1 

=-. 6 133,U 12 

=1.11  ,U13 

=1.621 

,rjl4 

=1 .700 

MAIN 

120 

INCON 

AMI  1 

=5.25  ,AM12 

=-7.40  ,AM13 

=-7.50 

, AM  1 4 

=-8.  30 

MAIN 

1 39 

INCON 

TOFBP 

=8000.  ,TQPBR 

=7100.  ,MT1 

=-  1 64.  3 

,MT2 

= 164  . 3 

MAIN 

140 

TNCON 

PDTO 

=-.12  ,QDTO 

=.0900  ,UO 

= 704. 

,VO 

= . 13-90 

MAIN 

150 

INCON 

MO 

=.0050  ,PO 

=.0200  ,QO 

=-.0370 

,PO 

=.0110 

MAIN 

Id  ' 

INCON 

FI 

= .9  ,F2 

=.8  ,F3 

=-.  3 

,F4 

= .6 

H A I M 

170 

INCON 

GB  1 

=.2  ,GB2 

= . 4 , G P 3 

= .5 

,GB4 

= . 8B 

MAIN 

180 

PA  RAN 

AMS 

= 5,162  , A MU  F 

=0.359  ,AMUR 

=0.574 

,TS 

= 35  . 86 

MAIN 

19^: 

PAR  AM 

AIR 

=800.  ,RF 

=81E03  ,TF 

= 54.  3 

,r.R 

=5  CEO  3 

MAIN 

200 

PARAM 

RW 

= 12.85  ,AIFM 

=5.815  ,AH1 

= 200. 

, AH  2 

= 200  . 

•MAIN 

210 

PA  RAM 

AKT  1 

= 812.  ,AKT2 

=812.  ,AKT3 

=1192. 

,AKT4 

=1192. 

M AIN 

220 

PAR  AM 

AMCR 

=0.08  ,CFCR 

=2CQ.  ,CCR 

= 11. 

, AP 

= 6.06 

■ MAIN 

23  9 

PAR  AM 

AA  1 

=5.53  ,AA2 

=5.53  ,ANG 

= 17.5 

,AKSC 

=6  10. 

MAIN 

240 

PAR  AM 

BSP 

=-6.  ,AKSL1 

= 1 . 1 7E5  , AKSL2 

= 1.  17F5 

,FP1 

=-.2000 

MAIN 

2 50 

PA  RAM 

EP2 

= - . 1 , A IW  F 

=7.3777, AID 

= 0.  3 

,ARBP 

=4.125 

M AIN 

260 

PAR  AM 

ATWR 

=7. 3777,AK^ 

=133.  ,AKP 

= 135. 

, AL  A M 

= 5.  1 

MAIN 

21"- 

PAPA'* 

OPT 

=2.2  ,CFP 

=25.  ,CPP 

= 45, 

,TR 

=53.3 

MAIN 

280 

PARAM 

AKE  1 

=52.2  ,AKF2 

=52.2  ,AKF3 

= 100. 

, AKF4 

= 100, 

MAIN 

29C 

PARAM 

AK  F.  3 

=100.  ,AKR4 

= 100. 

A I N 

300 

PARAM 

A 

=56.3  , B 

=39.0  ,G 

=386.4 

,Z^ 

= 10.8 

MAIN 

310 

PARAM 

ZP 

=10.6  ,AMU1 

=.1795  ,AMU2 

= . 1 795 

, A M U 3 

= .287'' 

M A I N 

3 20 

PAR  AM 

A M u a 

=,2870  ,AMUF 

= .3  5^90  ,AMUR 

=.5740 

, H'^C 

= 7.2  0 

MAIN 

.3  30 

PARAM 

HRC 

=4.70  ,CPRC 

=0.011 0,TANP 

= 0.0 

,DELS /LO 

=1.425 

M A I U 

.3  4 0 

PARAM 

LB  1 

=1.65  ,LB2 

= 1.65  , L E 3 

= 1.0 

,T.B4 

= 1 ,G 

MAIN 

3 50 

* 

MAIN 

36C 

* SOLID  AXLE 

IF  AXLF  = 1 

iM  A I N 

3 7C 

♦ 

MAT  N 

3 80 

PARAM 

AXLE 

= 1 

M A I N 

390 

MAIN 

400 

* 2 3 1 * 

R SCALED  FOP  BETA  TIMES  REAL  TIME 

M AIN 

4 10 

* 

A I M 

420 

PARAM 

BETA 

= 0.25 

M A I N 

4 30 

♦ 

M AIN 

4 40 

CONTRL 

ART 

=0.0,FIMTIM=. 

CC 1 , DELT=. 001 

M AIN 

4 59 

DYNAMIC 

M AIN 

4 6 0 

* 

M A I N 

4 70 

* THE 

FOLLOMINO  PARAMETERS 

ARF  riSFD  IF 

E AXLF 

IS  SPLI 

T 

M A IN 

4«0 

♦ 

MAIN 

4 9C 

IF {AXLE 

. EQ.I)  SOTO  1 

M AIN 

5 0 0 

PHI  P 

= C, 

MAIN 

510 

PHIRD 

= 0. 

MAIN 

5 20 

DEL  3 

= 0. 

MAIN 

5 30 

DEL3DT 

= 0. 

. 

MAIN 

540 

SEL3 

= 0.25 

M A IN 

550 

S EL3  DT 

= 69,0 

M A I N 

560 

SSL  4 

= C.90 

M AIN 

570 

SEL4  DT 

= 70.0 

MAI  N 

5^0 

GOT('  2 

MAIN 

590 

87 


♦ 

MAIN 

6 00 

♦ THE 

FOLLOWING  PARAMETERS  APE  USED  IF 

AXLE  IS  SOLID 

MAIN 

610 

♦ 

M AIN 

620. 

1 

SEL3  = 0. 

MAIN 

630 

SEL3DT  = 0. 

MAIN 

64  0- 

SEL4  = 0. 

MAIN 

650 

SEL4DT  = 0. 

MAIN 

660 

PHIS  = 0.01E95 

P!  A I H 

670 

PHIPD  = 0.55 

MAIN 

680 

DEL3  =0.8 

MAIN 

69C 

DEL3DT  =20. 

K AIN 

70C 

♦ 

M AIN 

710 

♦SYSTEM  EOnATIONS 

MAIN 

72C 

MAIN 

7 30 

♦S0SPEN5I0N  FORCE  EQUATIONS 

MAIN 

740 

MAIN 

75C 

2 

FSA1  =33.1 

MA  IN 

760 

FSA2  =48.0 

MAIN 

770 

FSA3  = 186.1 

MAIN 

780 

IF  (AXLE.  EQ.  1)  FSA3  = 95.9 

MAIN 

79C 

FSA4  = 138.0 

MAIN 

80C 

IF(AXLE.  EQ.  1)  FSA4  = 5C.0 

MAIN 

81C 

F2F1  =20.0 

MAIN 

82C 

F2F2  =97.41 

MAIM 

8 30 

F1F1  =CFP 

MAIN 

840 

’^1F2  =CFP 

MAIN 

850 

F2R3  = 25.0 

MAIN 

86: 

IF  (AXLE.  EQ,  1)  E2R3  = 114.0 

M A T N 

970 

F2R4  = 90.0 

M AIN 

880 

IF  (AXLE.  EQ.  1)  F2P4  = 46.02 

MAIN 

890 

F1R3  =CRP 

MAIN 

900 

F1R4  =CRP 

M AIN 

9^0 

♦ 

MAIN 

920 

♦ERR  1 

,ERR2  DENOTE  LIMITER  SETTINGS 

. MAIN 

9 30 

♦ 

MAIN 

940 

AUXPL1  =(  (DEL 2- DELI)  -ERR1  ) ♦ (RF/  (TF*T^)  ) 

i1  AIN 

950 

AUXPL2  = (-(DEI.2-DEL1)  -EPR2)  ♦ (R  F/{TF^TF)  ) 

M A r K 

960 

SIP  = AnXRT.1  - FSA1  - F2F1  - 

F1F1 

MAIN 

970 

S2P  = AUXPL2  - FSA2  - F2F2 

- F1F2 

MAIN 

48C 

IF(AXLF.EQ.I)  S3P=-FSA3~7  2P3-P1R'^-  (RP/TS)  *PHIR 

MAIN 

99C 

IF  (AXLE.  NE.  1)  S 1P=-FSA3-F2P  3-F1P 

3+  (SEL4-SEL3)  ♦PR/‘Tp  + »2 

M A J N 1 0 E 0 

IF  (AXLE.  EQ.  1)  S4P=-F3A4-F2P4-ri'’4f  (RR/TS)  ♦PHIR 

MAT  NIC  10 

IF(AXLR.NF.  1)  S4P  = -FSA4-*=’2R4-F  1 R4  - (SEL4-S  EL3)  ♦RR/TR**2 

MAIN1 C2C 

SMP  = SIP  + S2P  + S3P  S4P 

M A.  T N 1 0 3C 

SI  = S1  P^h'-A  «S«G/ (2  . ♦ ( A*  B)  ) 

MAIN1G4C 

S2  = S2P  + P*A«S*G/ (2.  ♦ (A  + B)  ) 

M AIN1 05C 

S3  = S3P+ AFS*G/ (2.  * (A +'^)  ) 

MAIN106C 

S4  = S4P+A+A»"S*G/(2.  ♦ (A+n)  ) 

M AIN  1C7C 

Z?:T3  = (TS/2.)^PHIR  + DEL3 

MAIN108C 

IF  ( AXLE. NE.  1)  Z^T3  = SEL3 

MAI N1 090 

Z^T3DT  = (TS/2 . ) ♦PHI RO  + DFL3DT 

MAIN  1 IOC 

IF(AXT.E.  NF.  1)  Z ET  3DT  =SEL  3DT 

M ATNI  1 1 C 

ZET4  = - (T5/2. ) ♦PHIR  ♦ DFL3 

MAIN1  120 

-IF  (A  XLE.  NE.  1)  Z'=’T4=SFL4 

MAIN  1 1 30 

ZET4DT  = - (TS/2. ) ♦PH IPD  + DEL3DT 

,M  AIN1  140 

IF ( AXLF.NE. 1)  ZFT40T=SFL4DT 

M A " N 1 

150 

* 

M A.  I N 1 1 6 C 

♦ RADIAL  TIRE  J'OBCE  ND  ROLLINS  RAriHS 

'EQUATIONS 

M ATNI  17C 

« AIN  1 180 

Z1  = D’='L1 +Z’^+ZO- A*THFO  + TP*0. 

5*p:iio 

M A INI  1 9'^ 

88 


Z2  = DEL2  + ZF*-ZO-A*THEO-TF*0.5*PHIO 

Z3  = ZO+B*TfiEO+TR*0. 5*PHIO+ZR^SEL3 

IF  {AXLE.  EC.  1)  Z3=Z0+ E*THEO>TR*0.  0*P[iIO  + ZP  + TP*0 
Z4  = ZO+B«THEO-TF*0.5*PHIO+ZR+SEL4 

IF(AXLE.  EQ.  1)  Z4  = Z04-B«THEO-TP*C.5*PHIO  + ZR-TR*0, 


S^PHTR+DELi 
5*PHIP  + DET,3 


H 1 
H2 
K3 
H4 
RHOl 
EH0  2 
RH0  3 
PH04 
FB  1 


-Z1 

-Z2 

-2  3 

-Z4 

FW-H1 

RH-H? 

R W-  H 3 
RW-H4 
0. 

GT . 0 ,. ) 


IF(  (RH+Z  1) 

FR2  = 0. 

IF( (RH+Z2) .GT.O.) 
FR3  = 0. 

IF( (RW+Z3) . GT.O.) 
FR4  = 0. 

IF  ( (RW  + Z4) .GT.O.) 
FXU1 


FP  1=AKT1* (R«  + Z1) 
FR2  = AKT2*  (P  W4-Z2) 
FR  3=AKT3*  {PW  + Z3) 


FX0  2 
FXU3 
FXU4 
FYO  1 
FYU2 
FYU3 
FYU4 
NPHIR 


♦FRONT  WHEEL 

♦ 

DEL1 DD 


DEL2DD 


♦REAR  WHEELS 

♦ 


FR4=AKT4^ (RW+24) 

= FRI^  (THE0-U1P*C0S  (PSIl)-vi*ArU1*SIN(PS 
= FR2*  (THEO-U2P«CnS(PSI2)-F2«ANU2*SIN{PS 
= FR3^  (THEO-U3P«COS(PSI3) - F3 ♦ A FH 3* S IN ( PS 
= FR4^  (THEO-U UP^COS  (PSI4) - F4« AKU4* SIN (PS 
= FRI^  (-PHIO-U1P*SIN  (PSI1)  +F1*LMIT'I  ♦COS  (P 
= FS2*  (-PHIO-D2P*SIN  (PSI2)  <-F2*  A MU2*COS  (P 
= FP3^  (-  PHIO-U3P«SIN  {PSI  3)  3*  A !1U  3 ^COS  ( P 

= FR4«  (-PHIO-U4P^STN  (PSI4)  +^4  ♦ A Hrj4  ♦COS  (P 
- -FR3«  (TR^O.  S*-Z3«PHIR)  +FR4*  (TR*C.  5-Z4^  P 
(TP*0.  S*PHTP-Z  3)  -FYD4*  (-TR^C.  PHIR- 

FQOATIONS  OF  KOTION 

= SMP/A?13-TF*0.5^PnTOf  A*QDTO+2./A?nJF*  (-F 
TAN  (2.«HFC/TF)J  vG 

= SMP/AMS4-TF*0.5^PDTO+A^C)nTC  + 2.  /AYI)  ?♦  (-? 
TAN  (2.  ♦HFC/TF)  ) <-G 

AND  AXIE  COMBINATION 


11 )  ♦GP  1) 

12)  ♦G’^2) 

13)  ♦GP3) 

T4 ) ♦GP  4) 

SI  1)  ♦GB  1) 

;a2)  *G32) 

SI  3)  ♦GB3) 

ST  4)  ♦GD4) 

MIR)  -?YU3^.  . . 

Z4)  + (S3-S4)  ♦TS^''  .5 


n +S 1-FYU !♦. . . 
"2+S2-FYU2^. . . 


♦SOLID 

* 

DEL3DD 

PHIRDD 

* 

♦SPLIT 

♦ 

SEL3DD 

SEL4DD 

♦ 


SKP/AMS+G+  ( S3+S4-FR3-FR44-  (FXU34-FXU4)  ♦TAMP)  /AMUR-B^QDTO 
-PDTn^-  (NPHT  a-  (FYfJB  + FYnu)  ♦ (C K RC*D  EL  3 + H PC)  -TS^O  . 5^.  . . 
(FyM3-FXU4) ♦TANP) /AIR 


SMP/AMS-TR*0.5*PDTO-B*0DTO<-2./AMU'’^{-FP34-S3-FYU3^,.. 
TAN(2.«HFC/TR) ) 

SKP/AMS  + TR^O.  5«PDT0“R*QDT0+2,  /A^'UR*  { - ’^R4  +S  4+  FY’J  4 ^ . . 
TAN (2.*  HRC/TR)  ) +G 


♦ST'='FRING  SYSTEM  EQUATIONS 
♦ESP,EP1,EP2  DENOTE  LIMITER  SETTINGS 

TP  ^ ANG^AKSC* (DELSWQ-ANG*YCa/AP-FSP/2. ) 

AMSS1  = AKSLl* ( (DFW1-YCR/AA1) -EP1/2. ) 

AMSS2  = AKSL2*  ( (DFW2-YCP/AA2) -EP2/2. ) 


M AIN1 200 
MATN121C 
MAINl 220 
MATN1230 
M AIN1 240 
MAIN1 250 
MAIN  1 260 
M AIN1 270 
MAIN1 280 
MAIN  1290 
M ATN1 30 C 
MAIN1310 
MATN1 32C 
M AIN  1 330 
M AIN1 340 
« AIN1 350 
MAIN  1 360 
HAIN1 370 
M AIN1 380 
MAIN1 390 
« AIN  1 400 
MAIN  1410 
NAJN1420 
M A INI  4 30 
M A I N 1 4 4 C 
MAIN1450 
MAIN  1 460 
M AIN147C 
M AIN148C 
MAI\M490 
M AIN1 500 
MAIN1 510 
MAIN15?'' 
MAIN1530 
MAIN1540 
MATM1 550 
MAIN1560 
M ATN1 570 
MAI N1 580 
M AIN  1 590 
M AIN160G 
^ AIN1610 
MAIN162C 
M AIN1630 
MAIN  1 640 
MAIN1 65C 
MAIN166C 
MAIN  1670 
M AIN1 68C 
MATN169C 
MAIN  1700 
MAIN  1710 
MAIN17?0 
M AIN  1 7 30 
MAIN  1740 
M AI N 1 750 
H AIN1 760 
M AIN1770 
MAIN  178  0 
MAI N1 790 


89 


DFW1DD  .=  (-AHV'‘DFWinT+MT1 -AKSS1)/AIFW-SDT0 
DFW2DD  = (-AH2’«=D.FW2DT*MT2-AMSS2) /AIFW-RDTO 
YCRDD  = (1  ,/A'ICR)  * {-CFCR  - CCR*YCRDT  + TP/AP 

AHSS2/AA2) 


* AMSS1/AA1 


♦WHEEL  ROTATIONAL  EQUATIONS 
❖ 
if 

♦ CIRCUMFERENTIAL  FRICTION  COEFFICIENT 

# 

U1  = UO-TF*0.5+RO+ZF«QO 

U2  = UO+TF«0.5*PO«'ZF*QO 

U3  = UO-TP*0. 5«RO<-Z  R^QO 

04  = UO+TP*0, 5*SO+ZR*QO 

VI  = V0<-A*R0-ZF^P04-Z1«?0 

V2  = VO+A»RO-ZF*PO+Z2*PO 

V3  = VO-3*RO-ZR*PO+Z3*PO 

IF  (AXLE.  EC.  1)  V3  = V 3+Z3«PHIR  D 
V4  = VO-B«RO-ZR*PO+Z4*PO 

I F( AXLE. EQ. 1)  V4=V4+ Z4+PHIRD 

W1  = WO-A*QO+TF*0.5*PO-DEL IDT 

W2  = WO-A ♦QO-TF*0.5*PO+ DEL2DT 

W3  = WO-B*QO+SEL3DT+TP*0.5*PO 

IF (AXLE. EQ. 1)  W3=WO-B*QO+DEL3DT* (PHTPD+PO) ♦TP *0.5 
W4  = WO+B*QO+SEL4DT-TP*C . 5^PO 

I?(AXLE.  EQ.  1)  W4=WO+B*QO  + DEL3DT- (PHIRD+PO)  ♦TR*0.5 


* 

'AWHEEL 


UG1 

UG2 

m3 

UG4 

VG1 

VG2 

VG3 

VG4 

XII 

XI2 

XI3 

XI4 

SLIP 


U1 +TFF0*W1 
U2+THEO^W2 
U3+TFEO^W3 
U4 vTH70^W4 
V1-PHIO*W 1 
V2-PHIO+W2 
V3-PHIO^W  3 
V4-PHIO^W4 

1.  fR  P31*ZV  (NGI  ♦cos  (PSII  ) ♦ VG  1 ♦ST  N (PS  I 1 ) ) 
1.  4-RPS2*Z  2/  (UG2*C0S  (PST2)  ♦VG2^SIN  (PSI  2)  ) 
1.  +PPS3  + Z 3/  (OGtV'VG  3^PSI  3) 
l.+RPS4^Z4  / (UG4+ VG4+PSI4) 


SLTP1  = XII 
IF  (ABS  (XI  1)  . GT. 
SLIP2  = XI2 
IF  (ABS  (XI2)  .GT. 
SLIP  S ^ XI 3 
IF  (ABS  (X  13)  . GT. 
SLIP4  = XT4 
IP  (A  BS  (XT4)  .GT. 


1. ) SLIP1  = 3IGN  ( 1 . , X1 1) 
1.)  SLIP2  = STGN  ( 1.  , XI2) 
1.)  3LrP3  = SIGN  ( 1 XI3) 


SLIP4  = SIGN  ( 1. , 
♦ ###  TIRF  CTPCUMFERENTIAL  FORCE  «## 


1.) 


XI4) 


fl AiNieoo 

M AIN  1 810 
MAIN! 820 
MAIN  IB  30 
H ACN1B40 
M AIN1 85C 
MAI N1 860 
MAIN187C 
M ATN1880 
MAIN189C 
MAIN1900 
MAIN  19 10 
MAINI 9?G 
MAI N1 930 
M AIN  1940 
MAIN  1950 
M AIN  1 96C 
MAI N1970 
MAI  Ml  980 
M AIN  1 990 
NAIN200^ 
MAIN2G  10 
M AIN2020 
MAIN2030 
IAIN  20 40 
M AIN2C5C 
KATN2060 
K AIN2070 
M.  AIN208C 
M AIN209'^ 
MAIN210C 
MAIN2  1 10 
MAIN2120 
♦AIM2  1 30 
M MN2  1-40 
M AIN2 ISO 
flA,IN2  160 
MAIN2  170 
MAI  M2  180 
MAIN2190 
MAIN220C 
M M N 2 2 1 0 
M AIN2220 
M A.TM223C 
MATN224C 
M AIN2250 
M AIN226C 
M AIN227C 
MAI N2 2 00 
MAIN  2 290 


AM2  1 

=: 

u 1 1-no  1 

M AIN2300 

AM22 

= 

U1 2- 002 

M AIN231G 

AM23 

=; 

U1  3-t’0  3 

MAIM2320 

AM  24 

= 

u 1 4-  in  U 

MAIN 2 3 3C 

SI1 

= 

U01/  (AM  1 1-AM21 ) 

!M  AIN2  340 

ST2 

= 

U02/ ( AM 12-AM22) 

MAT^nSSO 

SI  3 

= 

U0  3/ ( AiMl3-AH2  3) 

M AIN  2 360 

S 14 

= 

U04/  (AM14-AM24) 

M AIN2370 

U1P 

= 

AM  1 I^SLIPI 

M.  ATN2  3 8*' 

IF(SLIP1. 

GT.5’1)  U 1P=AM21*SLI?  n-nOI 

MAIN2390 

90 


U2P 

= AM12*3LIP2 

MAIN240G 

IF(SLIP2.GT»SI2)  a2P  = AH22  *S  LI  P2<-U02 

H AIN2410 

UIP 

^ Anl3*SLTP3 

MATN2420 

TF (SLIP3. GT.ST3)  0 3P  = AK23*SLTP  U03 

M ATN243C 

U4P 

= AH  14*SLIP4 

MAIN2440 

IF(SLTP4. GT.SIU)  U 4P = AB 24* SL IP 4+JO 4 

MAIN2450 

FC1 

= -nip*FRi 

MAIN2460 

FC2 

= -02P*FP2 

H AIN2470 

FC3 

= -l)3P*FE3 

MAIN2480 

FC4 

= -U4P*"R4 

M AIN2490 

PPS1 DT 

= - (FC1*H1-TQFDR*LB1)  /AIWF 

M AIN250G 

RPS2DT 

= -(FC2*H2-TQFBR*L32) /ATW’? 

M ATN2510 

PENOB  = 

^ AISR  ♦ AID*APBR»ARBP/4. 

H AIN2520 

TERM 

= AID* ARBR*AREP/4. 

M AIM2530 

RPS4PT 

= - (PC4*H4-T0HBR*L[J4+TFRM*XPS3DT)  /DF.NOM 

M AIN2540 

R PS  3 DT 

= - (FC3*H3-TQRBR*LB3 ♦TERM*  XPS 4 DT) /D E NOM 

M ATN2550 

♦ 

K ATN256^ 

♦SPARE  TIRES 

MAIN 2 570 

* 

MAIN2580 

TIN 

= 1 E-04 

MAIN259C 

THER  1 

= THETA  1/57.  3 

M AIN26GC 

THER2 

=THETA2/57. 3 

MAIN261G 

THEIDT 

= 57.  3*PPS1 

MATN2620 

THE2DT 

=57. 3*FPS2 

K AIN2630 

TERMINAL 

MAIN 2 640 

♦ 

HAIN265'^ 

♦ 231-R  POTS 

MAIN2660 

* 

M AIN2670 

Q20  0 

=AKF1*10.0*TTN 

MAIN2680 

Q201 

=.5512 

M AIN2690 

Q20  2 

= 1. 0/  (20.0*AMCP)  ♦beta 

M AIN2700 

Q203 

=.6755 

M AIN2  71 C 

Q204 

= 2.0/'».0*BETA 

MAIN2720 

0205 

=YCRDT/20C. 

MAIN2730 

0206 

= YC^/3. 

MAIN  2 74  0 

0207  = 

. 2000 

MAI N2 750 

0208 

=DFW2rT/100. 

M AIN  2 760 

0209 

= 2.  *DFW  2 

M AIN2770 

0210 

=AKR3*  10. 0*TIN 

MAT  N2780 

021  1 

=. 9999 

MAIN  2790 

0212 

= AH2/ (100, 0*AIFW) *BFTA 

M AT  N2  800 

0213 

=.9313 

« A I N 2 P 1 0 

)21  4 

= AK5L2/ {4000 O.C*AIFW) *PE^A 

MAIN  2 8 20 

Q215 

=A  KRU* 10. 0*TIN 

M AIN28  30 

Q21  6 

=.9999 

MAIN 2 84  0 

0218 

=. 9218 

M.AIN2  850 

0219 

= (AKSC*ANG/(AP*2000.0)  ) /20 . 

MAIN  2 8 60 

0220 

= AKF^'.*  10.  0*TIN 

M AIM2B70 

0221 

=.5512 

M AIN28BC 

0222 

= AHV  (ICC.  C*  AIFW)  ♦BETA 

MAT  M2  8 90 

0223 

=.6754 

MAIN  2 900 

0224 

= AKSL 1/ (4G0C  C.0*AIFW)  ♦BETA 

M AIN29 10 

Q235 

=DFwinT/ino. 

M AIN2  920 

0236 

=2.*DFW1 

MA IN  29 90 

0255 

=.8100 

M AIN2940 

0 2 56 

=,7152 

MAIN  2 950 

0257 

= CPCR/2COOO.O 

MAIM296^ 

0258 

= CCR/ 100.0 

MA.IN?97'^ 

0265 

=. 7652 

MA'^N2  98C 

0266 

--.7056 

MAT  N2  9O0 
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Q267 

= AKSL1/(AA2*40COO .0) 

MATN300r 

026  R 

= 3. 0/A  A 2 

HAINjCIC 

Q275 

=.8102 

MATN’3020 

027  6 

= .7183 

MMN3C  30 

0285 

=,7652 

r-iATN3C40 

0286 

=,7038 

M ATN3C5C 

Q281 

=3.C/AA1 

rtAIN306F 

0 28  8 

= AKSLV(AA1*40000 .0) 

M A IN  3070 

P20  1 

=. 4724 

. MAIV3C80 

P215 

= . 9999^-3ETA 

MAIN309C 

P217 

= 3.0*  A'I(;/(10  .OtAP) 

MA'r  N3  IOC 

P221 

=. 4724 

P230 

=. 9999*3ETA 

MATN3120 

MATK31JC 

P AMP’S 

MATH  3 140 

M AIN3  150 

A25C 

=YCRDT/200. 

M AIN316C 

A 251 

=-YCR/3. 

MATN3 17C 

A26C 

= -DFW2’^T/1  0 0. 

HA  IN  3 100 

A 26  1 

= 2.*DFl‘  2 

MAIN3 140 

A 280 

=~DF'W1PT/100. 

HATN3200 

A 28  1 

=2.*D"K1 

MAIM  3 210 

A20C 

= DEL1/10. 

HAIN3220 

A201 

=-P2Fl/1C00. 

M AIN  32  3C 

A210 

=Z  ET3/10. 

MAIN3240 

A 21  1 

=-F2P3/1 CCO. 

MAIN  3 2 50 

A215 

= ZFT4/10. 

K ATN3260 

A21  6 

=-^2P4/1C00. 

M AIN3270 

A220 

=DFL2/10. 

MAIN3280 

A221 

=-"2F2/1 OOO . 

BAIN329C 

A227 

= - . ?*DFW  2 

MAIN 3 300 

A23C 

= -FSA1 /I  000. 

MAIN  3310 

A 231 

=-FS A2/1000. 

MATN3320 

A 232 

=-FSA3/1 COC . 

MAIN  3 3 30 

A23  3 

=- FS A4/1000, 

K A IN  3 340 

A 23  7 

= - . 2*D^M  1 

KAIN3  350 

A 238 

=-  (-HT1 /AIFW  + P DTO) * BETA 

MAIN  3 360 

A239 

=-  (-MT2/AIFW +RD'^0)  *BETA 

MAIN3  370 

A24C 

=DFL1DT/10B . 

M AIN 3 380 

A24  1 

=DEL2DT/1C0 . 

MAIN  3 390 

A 24  2 

=-ZET3rT/l00, 

M AIN34C0 

A243 

= ZFT30':/1GC. 

M AIN34 10 

A 244 

=-ZPT4PT/100. 

MAIN  3420 

A245 

= 7.  ET  4D  "’/  10  0. 

« AIN3  4 30 

A 252 

= - (AMCl’’^  yCPDn/20CC0.  ) 

M /•  I N 3 4 4 0 

A 25  3 

--r’^CP/20000. 

MAI N345C 

A 254 

= -CFC  F/:''?000  . 

MAIN  3 460 

A262 

= - 2.  * (I'FW2-  (YCR/AA2)  ) 

M AT  N 3 470 

A263 

= 2 .*AM  KS  L2 

, M ATN  34RC 

A264 

=- A263 

MAIN3490 

A 270 

= --  {DELS WO-  (ANG*YCP)  /AP)  /10. 

MAIN35P0 

A 27  1 

= (ESP/2. ) /10. 

M AIN35K 

A272 

=-  (A27<  + A27  1) 

MAIN  3 520 

A 27  3 

=- A^50 

M A IN  3 5 30 

A28  2 

= - 2.  (BFW  1-  (Y  CF/AA  1)  ) 

MATN3540 

A 2 83 

= 2 5S1/AKSI 1 

M AT N 3 550 

A 28  4 

=- A281 

MAIN  3660 

A 23  2 

= 2.  * (E  -1  /2  . ) 

MAIN  3570 

A293 

= 2.*  (E^2/2.) 

r ATM  35  80 
MAIN  3 690 
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♦ 231 

DEPTVAT'IVES 

MAIN3600 

* 

MAIN36 10 

D250 

=yCRDD/20000. ABETA 

M AIN3620 

D251 

=-YCRDT/30. ♦R ETA 

MAIN 36 30 

D260 

=-DFW2DD/1000 .♦BETA 

M AIN3640 

D26  1 

= DFW  2DT/5.*BETA 

M AIN3650 

D280 

=-DFHlDD/1000 .♦BETA 

M AIN3660 

D2fl  1 

=DFW1DT/5.«BETA 

MAIN  367C 

* 

M AIN368C 

♦680 

POTS 

HAIN3690 

♦PEHAINING  1 

680  POTS  OBTAINED  FROM  IPOT  SUBROUTINE 

MAIN370G 

♦ 

KAIN3710 

' 

POO 

=DEL1DT/100. 

M AIN3720 

P18 

= DET,3/10. 

M AIN3730 

P20 

=4.«PHTR 

MAIN  3740 

P23 

=PHI8D 

M AIN3750 

P 30 

=DEL1 /10. 

M ArN376G 

P37 

=DEL2DT/100. 

MATN3770 

P38 

=DEL2/1 0 . 

M AIN37a^ 

P43 

=DEL3DT/100. 

M AIN379C 

PU8 

=SEL3DT/100. 

M AIN3800 

P57 

=SEL3/10. 

MATN381C 

P77 

= SEL4DT/1  00. 

M A IN  382C 

P78 

=SEL4/10. 

M A I N 3 8 3 C 

poo 

=THETA 1/200. 

MAIN3e4C 

P95 

=THETA2/2C0. 

main  3850 

P10  1 

= RPS1/100 

M AIN3860 

P 104 

=RPS2/100 

M AIN  3 870 

P110 

= PPS3/1 00 

MAIN3880 

P 1 1 4 

=RPS4/1 00 

M AIN389C 

* 

M AIN39G0 

♦ UNSC 

ALED  DAC  VALDES  FOR  SYSTEM  FQUATIOKS 

M AIN391 0 

♦ 

HAIN3920 

DACOO 

= -MT1 /AIFW+FDTO 

MAIN3930 

DACO  1 

= RW  <-ZF+ZO- A*THEO+'^F*0.  S«PHIO 

M AIN3  94C 

OAC02 

= -MT2/AIFW+RDTC 

M AIN  3 950 

DACO  3 

= RW+ZF  + ZO- A^THFo'-TF*0. 

MAIM396C 

DACOa 

= A H 2 1 - A M 1 1 

MAIN  3970 

DAC05 

= -TF«0.5^PDTO  + A«QDTO+3*  V'IS*  1/ ( (A+B)  *A:iII”)  +G-2.  *FYD  1*.  . . 

M AIN  3980 

TAN(2.  ♦HFC/^F)  /AMUF 

MATN3990 

DAC  0 6 

= AM22-AM12 

MAIN  40 00 

DAC07 

= TF^O . 5*PDTO +A*0DTO  + B«AM S^G/ ( (A»B) ♦AMU?)  +G-2.  ♦FYU2*.  . . 

M AIN 4 CIO 

TAN  f 2.  *HP-C/TF)  /A  MUF 

MAI N4020 

PACOe 

= -TQFtR 

M AIN4D  3^ 

DACOO 

= -TQRPR 

M AIN4C40 

DAC1  0 

= nRLS''.0 

MAI N4050 

DAC  1 1 

- 5«PDT0-B«QDT0<- A*  AMS^G/  ( {A  + B)  ♦AMU  R)  +G-2.  ♦FYU3«  . . . 

M ATN4C60 

TAN  (2.  ♦HRC/TB)  /Ai^Ut? 

M AIN4070 

DAC1  2 

= {-TR*0 . 5- Z3  ♦PHIf’)  ♦ AKT3/ATR 

MAIN40B0 

D\C1  3 

= G-B*ODT04-  ( A*AMS«G/  (A  + 3)  ^ (FXll  3 + FXD4)  ♦TA  NP)  /AM  UR 

M ATN409C 

DAC  1 4 

= (TP»C. 5-Z4* PHIS) ♦AK74/AIF 

H AIN4  109 

DAC  15 

= -PDTO+  (-  (^YU3  + FYtI4)  ♦ (CP  RC*  D FL  3 +H  RC)  -T3*0 . 5^  (FXU3-FXU  4)  . 

. . M A I N 4 11  0 

♦ TANP-FYU3*  (TP^O.  5*  PFI^p-z  3)  - FYU4«  ( -TR  ♦ C , 5 * PHI  R-Z4)  ) / A I” 

MAIN4 120 

DAC  16 

= AM2B-AM13 

M A TN4 1 30 

DAC  17 

= RW +Z  H-Zn  + B*THE04-?HT'>*TR*D  . 5 

MAIN4140 

DAC1B 

= AM24-A’i14 

MAIN4 150 

DAC  19 

= HW  + Z1+ Z0+ D*  THFO-PHIO  + TP«'^.  5 

main  4 160 

DAC  20 

= AM14 

M ATN4  170 

DAC?  1 

= A M 1 3 

M ATN4 1 80 

DAC22 

= AM11 

MATN4  190 
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DAC23 

= A«12 

MAIN4200 

DAC24 

DG1*C0S(PSI  1)+VG1*SIN  (PSI1) 

M AIN4210 

DAC25 

=■  TTG2*COS(DSI2}  +VG2*SIN  (PSI2) 

MAIN4220 

DAC26 

= UG34-VG3  + PST3 

MAIN423C 

DAC27 

= DO  3 

M AIN4240 

DAC28 

= UG4+VG4*PSI4 

HAIN4250 

DAC29 

= U04 

MAIH4260 

DAC30 

= DO  2 

M AIN427C 

DAC3  1 

= U01 

MAIN 42 80 

DAC3  2 

= -SI1 

MAIN429C 

DAC33 

= -SI2 

HAIN4  300 

DAC34 

= -SI3 

MA"'N4310 

DAC3  5 

= -ST4 

M ATN4320 

DAC36 

= TR*0.5*PDTO-B»QDTO+A*AKS*G/ ( (A  + B) ♦ AHD  P) ♦ G + 2. ♦FYD4*.  . . 
TAN  (2.  «HRC/TR)  /AMUR 

KAIN4  330 
M AIN4  340 
M AIN43S0 

CALF  FACTORS  FOR  D/A  CONVEPTh'RS 

MATN4360 

I5AIN4370 

DAOO 

= DACOC/10000 ,*BFTA 

« ATN4380 

DA01 

= DAC01/10. 

M AIN439C 

DAO  2 

= DAC02/10000 .♦BETA 

HAIN4400 

HA03 

= DAC0  3/10. 

M AIN441C 

DA04 

= DAC04/20. 

M ATN4420 

DAO  5 

= DACOV10000. 

MAIN4430 

DAO  6 

= DAC0<-./20. 

:i  A IN  4 440 

DAO  7 

= DAC07/10000, 

M AIN4  450 

DAOB 

= DACC8/4000C. 

KAIN4460 

DA09 

= DAC09/4000r. 

MAIN  4 470 

DA  10 

= DAClC/10. 

M AIN4U80 

DA11 

= DAClI/IOCOn. 

M AIN4490 

DAI  2 

= DAC1 2/100. 

MATN4500 

DA  1 3 

= DAC13/10000. 

M AIN4510 

DA1  4 

= DAClw/100. 

M ArN452C 

DAI  5 

^ DAC1S/100. 

MAI N4 5 30 

DA16 

= DACU/20. 

MAIN4540 

DA17 

^ DAC17/10. 

M ATN45S0 

DAI  P 

= DAC1 H/20. 

♦ AIN456C 

DA19 

= DACI^VI"’. 

MAIN457C 

DA20 

= DAC20/20. 

M A IN 4 580 

DA2  1 

= DAC21/20. 

M AIN4  590 

DA2  2 

= DAC22/20. 

M ATN4600 

DA23 

= DAC2  V20. 

f*  A I N46  10 

DA  24 

= DAC24/15QO. 

M AIN4620 

D?'?5 

= DAC23/1S00. 

M ATN46  30 

DA  26 

= DAC2e/1SC0. 

MAI N4640 

DA27 

= DAC2  7/20. 

M AIN4650 

DA2P 

= DAC2:/1S^0. 

M AIN4660 

DA2  9 

= DAC2'V20. 

M ATN46  70 

DA3C 

= DA C3 0/20. 

M ATN4680 

DA3  1 

= DAC31/20. 

M AT'»4690 

0A32 

^ DAC32 

ri  AIN'i7C0 

DA3  3 

DAC3P 

MAI N47  10 

DA  34 

■-=  DAC3  4 

M ATN4720 

DA3  5 

= DAC3D 

M A IN  4 7 30 

D A 3 f) 

= DAClD/IOCOC. 

MAIN4 740 
MAIN4750 

680  AWP'S 

M AI M4  760 

AOOO 

= - DFLU’T/ICO. 

MAIN477C 

AO  0 2 

= DEL  1/10. 

MAIN47R0 

A005 

DFL2DT/1  00.  '■ 

M AIN4790 
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AOOT 

= D EL  2/  1 0 . 

HATN4800 

AO  10 

=-nRL3DT/100. 

HAIN4810 

A012 

=DEL3/10. 

MATN4820 

AO  15 

=-PHIRD 

M AIN4830 

A017 

=4.*PHTR 

H AIN4840 

A040 

= -SET,3DT/100. 

t1AlN4850 

A050 

=SEL3/10, 

MAIN4860 

A080 

=-SEL4DT/100. 

HAIN4870 

A 085 

=SEL4/10. 

M AIN4880 

A090 

=THETA1/20C. 

HAIN4890 

A 09  5 

=THETA?/200 . 

HAIN4900 

A100 

=RPS1/100. 

K AIN4910 

A105 

=PPS2/100. 

MAIN4920 

A 110 

=-RPS3/100. 

H AIN4910 

A1<5 

=-RPS4/100. 

M AIN4940 

T51 

=A237 

H AIN4950 

T52 

= A227 

MAIN4960 

T80 

= A230 

NMN4970 

T82 

= A 2 3 2 

H AIN4  980 

T83 

= A233 

M AIN4  990 

T84 

= A201 

MATKSOOO 

T85 

= A221 

M AIN50  10 

T86 

= A21 1 

K AIN502C 

T87 

= A216 

HATN503C 

T88 

= A 231 

MAIN5040 

A003 

=“DEL1/10. 

R AIN5050 

AOOU 

=SIN (THER1) 

« ATN5060 

A 006 

=-RPS2/1 00. 

RAIN5070 

A008 

= (-H 1 + PPS1/ (UG1 ♦COS (PSI 1)  ♦ VG1+SIN (PSI1)  ) ) /2. 

H AIN5080 

A009 

= COS  (TF3R2) 

M AIN5090 

A01 1 

= AtJXRL2/1000. 

HAIN5100 

A 014 

=-COS (THER1 ) 

M AIN5  1 10 

A016 

=-S1P/1000. 

RAIN  5 120 

AO  18 

= H I^RPSI/1500 . 

RAINS  1 30 

A019 

= S IP/1  000. 

MAINS  140 

A020 

=SLIP4 

RAINS  150 

A021 

=-S2P/1000. 

R A I N 5 1 6 0 

A022 

= RPS4DT/10000  . 

RAINS  170 

A023 

=-FC 1/ {4.+AKT1) 

RAINS  180 

AO  2 4 

= S 2P/1C00. 

M AI  NS  190 

A026 

=- S3 P/ 1000. 

K ATN5200 

A02B 

(H  l*FR1*!nP)/{60.«AKT1) 

RAIN521=^ 

i029 

^S3P/1C00. 

R A I N S 2 2 C 

A030 

=U3P/2 . 

R A I N S 2 3 C 

AO  3 2 

=SHA^F1 

RA I NS 2 40 

A013 

=3HAPE? 

A IN  5 250 

AC3u 

= S IN  (TUFF  1) 

M AT  NS  26  0 

A035 

= ZET4D  T/100, 

RATN‘=,270 

A036 

=-ZFT3/1 0. 

■'  MAINS2  9^‘ 

A 0 37 

= SIN(THFR1) 

R A IN  5 2 90 

AC38 

= S HA  PE  3 

R AINS  30 C 

A039 

= SIN  (THFR2) 

M A I N S 3 1 C 

AOU  1 

=U4?/2 . 

R A '"NS  320 

A042 

= S IN  (TFFR2) 

MAI  MS  3 J- 

A ^4  4 

-SHAPF4 

R AIMS  34C 

A045 

=-ZFT4/10. 

RAINS  35" 

A 04  6 

= ZFT  100/1 00 . 

R A I N b 3 6 C 

AO 4 8 

•^RFOVO. 

M A'l'.NS  3 70 

A 04=1 

=-H3/1S. 

A I N S 3 9 r 

A T 5 1 

= -s4p/noc. 

■ kaT  NS 
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A052 

=-A050 

' ■ 

KAIN540C 

R053 

= H2’«‘aPS2/1500  . 

M A IN  54 10 

A054 

=S4P/1000. 

HAtil5420 

A 055 

= (S3P-S4P)  /2C00. 

HA  IN  54 30 

A056 

=-RPSl/l00.  • 

H ATN544C 

A057 

=-A039 

H AIN5450 

A05B 

=RK04/2. 

M A TN5460 

A059 

=-H4/15. 

H ATN547C 

A060 

=AUXRL1/1000. 

fi AIN5480 

A 06  1 

=ERR2/10. 

HATN5490 

A062 

=- A 0 1 4 

HAIN6500 

A 06  3 

= * (H2*F32i'U2P)/(60.»AKT2) 

HAIN5510 

A064 

=-SLIP3 

M AIN5520 

A065 

= - (nEL2-DEL  1)  /10. 

HAIN5530 

A066 

= StlP/1  000. 

H ATN5540 

A068 

= -FC2/  (4.  ♦AKT2) 

H ATM5550 

A 06  9 

=-A034 

H ATN5560 

A070 

= ERR  1/10. 

r.AIN5570 

A 07  1 

= - (SRL4-SPL3)  /10. 

H AIN5*^B0 

A072 

=-5IN (THER1) 

M ATNS590 

A 073 

= (-H3*FPS3/  (UG3  + VG3*PSI3)  ) /2 . 

R AIN5600 

A074 

= (SEL4-3EL3) ♦ RR/ (TP**2*  1000.  ) 

HAIN5610 

A075 

= - (SLIP4^(AM  24-AH14)  4-004)  /20. 

M AIN5620 

A076 

=RPS3D1/10000 . 

H ATN5630 

A077 

= COS  (THER1) 

HAJN5640 

A 07  8 

=H 3«RPS3/1500 . 

H ATN5650 

AD, 7 9 

= -A074 

M AIN5660 

A081 

= SETP2 

H AIN56  /C 

A0B2 

=-SIN (THER2) 

MAT  N5680 

A 08  3 

=- (H 3*FR3*03P) /{60 . ♦AKTO) 

M ATN5690 

A084 

= -H2/15. 

H ATN5700 

A 086 

=-RH01/2. 

HAI N571C 

A087 

= COS  (THER2) 

M AIN5720 

A08R 

= -FCJ/  (4.  *AKT  3) 

H ATN5730 

A089 

=-Hl/15. 

H ALN5740 

A09  1 

=U1P/2. 

H ATN5750 

A092 

= SLIP3 

H AIN57bO 

A093 

= (-H2*RPS2/ {UG2*C0S (PSI2) ♦ VG2»SIN ( PSI2) ) ) /2. 

fl ATN5770 

A094 

= “(SLTP3* ( AH 23-AM 13)  +003) /20. 

MATN5780 

A096 

=-RH02/2 . 

HAIN5790 

A097 

=-8LIP4 

H AIN5800 

A099 

= 3IN  (TH3R2) 

H A I N 5 8 V'' 

A10  1 

= 5 LTP1 

H AT'J5  8 20 

A 102 

-- SLIP1 

M AIN5830 

A103  . 

= (-H4*  PPS4/ (UG4  + VG4*PSTU) ) /2. 

HAIN5840 

, A 104 

= - <SLI  PI*  (AM21-AHn)  4-00  1)  /20. 

H AIN585C 

' A106 

=-R8n3/2. 

M AIN5860 

A108 

=HU*RPS4/1500 . 

MAIN5B70 

A 109 

= - (SLI P2* ( AM22-AM12) +002) /20. 

H ATN5860 

All  1 

^(J2P/2. 

R AIN5890 

A1  1 J 

=-  (H4*FR4*U4P)/(60.*AKT4) 

H AIN5900 

A11U 

=-SLTP2 

HAIN5<»10 

A 116 

=-RH04/2 . 

RATN5920 

A1 1 7 

=- A087 

M AIN5910 

A 118 

= -FC4/(4.*AKT4) 

MArN5940 

680  DEEIVATIVPS 

H AIN5950 

DOOO 

= DEL1DD/1000. 

M AIN5960 

D002 

=-DELlrT/100. 

MATN5970 

D005 

=nEL2DD/1 000. 

1 A IN5980 

D007 

=- DEL2DT/ 100. 

M AIN5  9 9C 
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D01  0 

=DEL3DD/100C. 

tlAINSOCO 

D012 

= -DEL3DT/1  00. 

MAIN6010 

DO  15 

=PHIPDD/10. 

MAIN6020 

D017 

=-PHIRD/2.5 

MAIN6030 

D040 

=SEL3DD/1000. 

HAIN6040 

D050 

= -SEL3D"'/100. 

NAIN6050 

D080 

=SEL4DD/1000. 

H AIN6060 

DOSS 

=- SEL4DT/100. 

M AIN6070 

DO  90 

=THE1DT/2000. 

HAIN6C80 

D095 

=THF2DT/2000. 

KAIN6090 

D100 

=-RPS IDT/1000. 

« AIN6  100 

D105 

=-RPS2DT/1000 . 

MATN61 10 

D1 10 

=FPS3DT/10C0. 

f1  A I M6  1 20 

D115 

= fiPS4DT/1  000. 

PAIN6 130 

DUS  NY 

= DEBO'l  (1.  ,0.) 

E AIN61 40 

CALL 

PUNCH 

MAIN6150 

END 

H AIN6  160 

PARAH 

AXLE= 

0 

!*1  AIN6  170 

END 

M AIN6180 

STOP 

M ATN6 160 
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2.  PRESENTED  HERE  IS  THE  COMPUTER  LISTING 

OF  THE  IBM  360/91  FORTRAN  DIGITAL  PROGRAM 
2.1  SUBROUTINES 
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2.1.1  MAIN 

PRESENTED  HERE  IS  THE  FORTRAN  LISTING  FOR  THE  MAIN 
SUBPROGRAM.  THE  FOLLOWING  IS  PERFORMED  IN  MAIN: 

1)  Communication  initialization  with  the 
hybrid  operator's  station. 

2)  Reading  of  the  input  data  deck. 

3)  Setting  of  potentiometers. 

4)  Simulation  control  via  the  interactive 
routines  using  the  OPTION  command. 
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1 (PARAS  (302)  ,PHI?D)  , (PARAS  (303)  ,rUI?)  , (P.ARAS  (3'  4)  , HFLEN  1)  , 

1 (P. ARAS  (.3  0 5)  ,nFLVN2)  , (P.APAS  (3C6)  ,U  IP)  . (PAP  AS  (397)  , ”2P)  , 

1 (PARAS  (30  8)  ,U3?)  , (PAPAS  (J99)  ,U4P)  , (PARAS(.ilO)  , 31P)  , 

1 (PARAS  (3  11)  ,3?':’)  , (PA  RAS  (3  1 2)  , 33P)  , (PARAS  < 31  3)  , SUP)  , 

1 (PARAS  (314;  ,Qn.AN1)  , (PARAS  (315)  ,QUAN2)  , (PARAS  ( 1 U)  ,0UAN3)  , 

1 (PAPAS  (3  17)  ,QUAN4)  ,(  PARAS  (3  18)  , ARPS1)  , A P A S ( 3 1 ',.)  , ARP  5 2)  , 

1 (PARAS  (3  20)  ,NSrU  1)  , (PAPAS  (321)  ,WCTH1)  , (PA F AS  (3  22)  ,WSTH2)  , 

1 (PAPAS  (3  2 3)  ,WCi’H2)  , (PAPAS  { *24)  , IOUT(  1)  ) 


CA3) 

r 

(P.ARAM  (38)  ,CA4) 

9 

(P A^AS (39) 

,AISS) 

AK.DL) 

$ 

(P.APAS  (41)  ^AKSC) 

9 

(PA'''AS(42) 

^ANG) 

WG) 

0 

(PARAS  (40)  ,ANL2) 

i 

(PA5Af':(45) 

. AKSI) 

.ANL1) 

0 

(PARAS  (47)  , AIFW) 

9 

(PAP.A  S(48) 

,Hni) 

\IKP) 

0 

(PAPAS  (50)  »AIWR) 

0 

(PAIAS  (51j 

.AID) 

•\RBR) 

0 

(PARAB  (53)  ,EP5 1) 

9 

(PA'' .AS  (54) 

,EP32) 

PT3R) 

0 

(PARAS  (56)  ,YSA1) 

9 

(PAR. AS  (57) 

,VS.A2] 

YHSI) 

0 

(PARAS  (59)  ,YHS2) 

9 

(P  a:  as  (6C) 

,.AKD) 

TQDBR) 

0 

(PARAS  (62)  , AK) 

9 

(P.A'.AM  (6  3) 

»PIN) 

QIN) 

0 

(PARAH  (65)  ^RIN) 

0 

(P a: as  (66) 

,013) 

VIN) 

9 

(PARAS  (68)  ,fe’IN) 

0 

(PA^.AS  (69) 

,XIN) 

YIN) 

9 

(PAPAS  (71)  ,ZIK) 

0 

(PARA'-  (72) 

,TH^IN) 

PHIIN) 

0 

(PARAS  (74)  ,PSIIN) 

0 

(f’ A^.AM  (75) 

,DriN) 

TEND) 

0 

(PARAS  (77)  ,AKT1) 

0 

(P A“AS(78) 

,AKT2)  , 

.AKT3) 

0 

(PARAS  (80)  ,.AKT4) 

0 

( P A r A S ( 8 1 } 

,RPS1) 

2PS2) 

9 

(PAPAS  (83)  ,RP.S3) 

0 

(PA' AS (84) 

,RPS4) 

91) 

0 

(PARAS  (86)  ,B2) 

0 

( P .A  r A M ( 87 ) 

,33) 

) , 

(PARAS  < 89)  , DFL1DN) 

^ (PAPAS(  90)  ,nEL2DN)  , 

SAIN  600 
SATN  610 
SAIF  6,20 
SAIN  6 30 
SAIN  640 
SAIN  650 
HAIN  650 
SAIN  670 
SAIN  690 
MAIN  690 
SAIN  700 
SAIN  710 
MAIN  720 
SAIN  730 
SAIN  740 
SAIN  750 
SAIN  760 
?1AIK  77C 
MAIN  73C 
SAIN  790 
SAIN  8CC 
SAIN  81C 
7 AIN  820 
SAIN  R30 
SAIN  840 
H.AIN  850 
SAIN  860 
MAIN  870 
SAIN  880 
MAIN  990 
MAIN  900 
SAIN  910 
SAIN  920 
SAIN  930 
SAIN  940 
SPIN  95C 
SAIN  960 
SAIN  97C 
MAIN  930 
SA^N  990 
SAIN  1000 
S AIN1C  1C 
a AINI 020 
SAI?i1030 
S AIN  1040 
0 A IN  1050 
MAIN  1060 
MAIN  1070 
MAIN  1030 
MAIN109C 
MAIN  1 100 
M AIR1  1 10 
SAIN1 120 
SAIN  1 1 30 
SAIN  1 140 
S PIN  1 150 
SAIN1 16C 
M.RTN1  17C 
M ATN 1 19^ 
S AI N1  1 70 
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EQUIVALENCE  (EARSUP  ( 1)  ,ZUtJHHY  ( 1)  ) 

EQUIVALENCE  ( CV ALU E ( 1 ) , ZDU R 1Y  (I ) ) 

PEAL*8  NAfiSUR  (2)  ,STOP,NAHEA (10) 

REALMS  ZDURHY 
REAL*8  TABVAR  (9,7) 

PEAL*8  QUES, CHANGE, READ, CONTRL, RETURN 
REALMS  OPTION  (15)  ,OPTEST 

PEAL«8  BLANK, SELECT, ASELT  (15)  , RER OVE , R ESET 
REAI'^8  NHES,NTESTP,NTESTO 

PEAL*8  NADCL, NDACL , N DU HP, N P A R R , N N PC, NPLOT, NSTAT,NSTD 
REAL*8  NTRACK,NTH,NTIf1D,NTABLE 

EEAL»8  OUT NAM  (21)  , NX , NOUT, NTERH , N BESR , NIC , NADC A 
REAL«8  NXM,UNNAM (3) , MODENA (4) 

PEAL*8  ORNAME,FMNAHF 
REAL*8  NLA 

REALMS  NDACA, NKULT,CNAHE,NII,NFF 
REAL*4  VALMR (20) ,FINLMP (20) 

PEAL^4  TMNAME(2) 

REAL+4  FNUMA(IO) 

REAL *4  TOUT  (4  8)  , IN,TTMP, SC A LAC  (28)  ,SCALDC  (48) 

INTBGER^4  WRDVNT(9) 

INTEGEP*4  INDFXA(IO) 

INTEGFR’i‘4  OSBCB  ,DONECB  ,SLECP5 , ELECB5 

INTEGER*4  ITABI  (9) 

INTEGER*4  ITAPP (9)  , TABNUH ,ITN AM  (9) 

INTEGEP*2  INDVAR(9,7) 

INTEGER* 2 ITRAA  (50)  , ITFN A (5 0)  ,ITRIA (50) 

INTEGER*2  LGCAT ( 20 ) , LOOPN  (20 ) 

TNTEGER*2  RTSW  ,EESW  ,LDTSW  ,OPEN 
INTEGER*2  DEV TCE ( 2 1 ) , lOPDE R, I MODE  (20 ) 

INTEGER*2  D ACNUM , A DC NUM , DACPLA  (48 ), A PC  PL  A ( 2 8) 

INTEGER*2  KAHrAC(48)  ,NAHADC  (28)  ,IDAC  (48)  , IM)C  (28) 

DATA  QUES/' : V 

DATA  BLANK/*  */ 

DATA  OUTNAM/* STD® , *TM* , ’TABLE* , 17+ • »/ 

DATA  NHES,NTESTP, NTFST0/»MES* ,’TEST* ,'TESTO*/ 

DATA  RESET, REMOVE/ *RFSET'«  *,' REMOVE  •/ 

DATA  DEVICE/2 ,2,3, 17*C/ 

DATA  IMODE/1,  1, 3, 1 7*0/, NXM/»  XH '/ 

DATA  UNNAM/*L.  , .....  ',»T *,*B '/ 

DATA  MODENA/*  S.....,.*,*XBQ *,»M •,'A....o..'/ 

DATA  N1A/»LA»/ 

DATS  NX,NOUT,NTEPM,NPESR,NIC/*  X*  , *OOTPUT*  ,»TEPE*,  'F:E-STR*,  *IC*/ 
DATA  NADC »,NDACA,NII,NFF/* ADC  A* , * DACA*  , * I * , ’ F»  / 

DATA  NMTJLT,  NADCL,  N DA  CL/ ‘ MULTI  * , * ADCL  ' , *?"ACL’/ 

DATA  NDUUr,NP  ARM,  N PLOT,  NSTAT/*  D'JM  ?«  , * P ARM  ' , * PLOT  * , * ST  AT  » / 

DATA  NSTD,NTRACK,,NTM,NTIHD/*STD*,  ’TRACK*,  ‘TM’  , 'T+D'/ 

DATA  NTABLP,NNPC/»TABLE* , *PC*/ 

KEYBD=5 
I TTY =6 
LPRNT  = 0 
ICDRD  = 1 
LAST-=72 
LPTR  =2 

CALL  TYPSR2  (KFYPD, ITTY,LPPNT) 

CALL  SETUP (ITTY ,ICDED) 

DO  10  1=1 ,48 
IOUT(I)=0 
10  CONTINUE 
TPT=0 


MAIN120C 
M AIN121C 
MAIN1220 
HATNI 23C 
M AIN124C 
MATN1250 
MAIN1260 
MAIN1 270 
MAIN1 280 
MAI N1 290 
MAIN1 300 
MAIN  1 310 
MAIN  1 320 
MAT N1 330 
MAIN1  340 
MAIN1  350 
M ATN 1 36C 
MAIN1 370 
MAIN! 380 
MAIN  1 380 
MAIN1 400 
M A I N 1 4 1 0 
MAIN1420 
M AIN1 430 
MATN1 440 
MAIN145'' 
M AIN  1 4 60 
MAIN1 470 
M AIN  1 430 
H ATN1480 
MAIN150C 
M A I N 1 5 1 0 
MAIN152G 
M AIN1 530 
MAI N1 540 
M ATN 1550 
M AT  N1 560 
HA  IN  1570 
M ATN1580 
MATN1590 
HA  INI  600 
M A T N 1 6 1 0 
H AIN  1 620 
MAIN  1 630 
MA INI  640 
M AIN1650 
MAIN1 660 
MAIN  1670 
M AIN  1680 

M AI N1 680 

M A I N 1 7 0 0 
MAIN  1710 
HAT  N 1 72C 
MAIN1730 
MAIN  1740 
MATN175C 
M ATN 1 76G 
MAIN  1770 
MAIN  178^' 
MATN178C 
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IKEEP=0  ' 

MAIN180C 

JIN=0 

SAIN  8810 

ICDPN=7 

MAIN182C 

IDACK=0 

HAIN1830 

TABNUM=9 

SAIH1S4C 

SOPU:^6 

MAIN  l6f>C 

LRUNS=0 

F AI Si  860 

IRUNS^I 

MAIN  3 87f 

ICT=0 

H ATH  U-80 

LSTAFT=1 

HATNie^O 

LAST=72 

H AIN  1 1CC 

DTIN=. 02 

MAIN1910 

ADCi^UM  = 2 8 

« ATn 192C 

DACNUK=48 

KAIN193C 

SAVHTP=1 00 

MAIN  19  40 

ITEUNS=0 

MAIN  1850 

FEALT=1. 

MATN196C 

OI^TIM=10  0 0. 

RATN197D 

N1=295 

HATN1980 

N 2=  1 1 9 

MAIN1 890 

FTSK=1 

KAIN2000 

RBSW  = 0 

MATN20  10 

OPEN  =0 

MAIn2C20 

ICDPN  =7 

MAIN203O 

WRITE (ITTY,  1 1 ) 

WATN204C 

WRITE (ITTY, 10070) 

i1AI’}2050 

WRITE  (ITT Y, 10 120) 

KAI N2060 

READ  (KEYBD, 11  COO)  LL 

MATN207C 

CALL  SACN  (1 ,ISACNE) 

MAIN20o0 

CALL  SANO  (1 ,IS AMOE) 

M AIN2090 

CALL  SLflO  (3,TSL^10E) 

HAIN2100 

CALL  SIP10  (1  ,ISLNOE) 

MAIN2110 

1 1000 

FORMAT  (11) 

M ATN2  120 

10120 

FORMAT (1H  ,18HTYPF  CR  WHEN  READY) 

MAIN2 130 

10070 

FOPMAT  (1HC,27HENGAGE  PATCFI  PANEL  FOR  TEST) 

M AIN2  140 

1 1 

FORMAT  (T  10, ’ HYBRID  VEHICLE  HANDLING  PROGRAM’) 

1*  AIN2  150 

8888 

CONTINUE 

HAIN216C 

XPF=XIN 

MAIN2170 

Y3?FC=YIN 

MAIN  2 180 

NRUN=1  ■ 

M AIN218C 

8 8 3 3 

FORMAT (20A4) 

MAIN2200 

DO  6140  1=1,48 

HMN22  1''' 

TTMP  (T)  =0 

A ! N 2 2 20 

o1  40 

CONTINUE 

MA.TN2230 

READ  (ICDHD,  33  3 1)  (ALPH  (I)  ,1=1, 20) 

MATN2240 

FEADdCDRD,  90  3)  ( PHI  FNT  ( I)  , 1=  1 , 7) 

M AIK2250 

PFAD(TCDRD,  90  3)  (TMF  FNT  (I)  , T=  1 ,7) 

n MN2260 

READ  (TCDR  D,90  0)  (PSIFNT  (I)  ,1=1,7) 

MAI N2 270 

READ  (TCDRD, 80  0)  (PH  IP P (I)  ,T=  1 ,7) 

M AIN2280 

REA  D (TCDRD,  800)  (THERR(I)  ,1=1,7) 

n AIN2290 

READ  (ICDRC, 900)  (PS  IR  R (I)  , 1=  1 , 7) 

MAIN230O 

NTF=  1 

MATN2310 

200 

READ  (TCDRD,  90C)  PBF(NTF)  ,T^B^(NTF) 

M AT  N2320 

IF  (FPF  (NTF)  .GF.  98989 .0)  GO  TO  210 

MAIN  2 3 30 

NTF=NTF+ 1 

B AIN234D 

GO  TO  200 

MAIK235C 

210 

NTF=NTF-1 

M A IN 2 360 

NTP=1 

MAIN2  370 

2 20 

READ  (ICD^D, 90f)  PR P ( NTR ) , TQE R (NTH ) , 

MAIN238r 

(PDR  (NT  R)  . GF.  99998  .0)  GO  TO  230 

MAIN238n 
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NTR=NTR^1 
GO  TO  220 
230  NTR=NTR-1 
NFA=  1 

2 80  RFAP  (ICDRD,900)  GAf!F  (NFA)  ,APA  (MFA) 

IF  (GAflP(NFA)  .GS.  99999.0)  GO  TO  290 
NFA=NFA+1 
GO  TO  280 
290  HFA=NFA-1 
900  FORMAT  (8E10.0) 

READ (ICDRD, 8750)  (ASELT(I) ,1=1,15) 

READ (ICDRD, 101 1)  CHANGE, READ, RETD  BN, CONTP L 
READ(ICDRD, 8750)  (OPTION (J) ,J= 1 , 1 5) 

C THIS  ROUTINE  SETS  UP  TRACK  NAME  ARRAY 
ITRA=0 

130  CALL  UNFOBH  (ICDRD,  1) 

IF(IWRDCT.EO.O)  GO  TO  120 

DO  110  I=1,IWFOCT 

CALL  FINDNM  (K, J, 1,61  10) 

TTRA=ITRA+1 

ITRAA  (ITRA)  =K 

ITRN A (ITRA) =J 

ITRI  A (ITRA)  =INDEXA  (I) 

110  CONTINUE 
GO  TO  130 
120  CONTINUE 

C THIS  ROUTINE  SETS  UP  TABLE  NAME  ARRAY 
DO  101  JJ=1,7 
CALL  UNFOBM  (ICDRD,  1) 

TABNUM=IWRDCT 
DO  102  LL=1,T/'BNUM 
TABVAR  (LL  ,JJ)  = NAMEA(LL) 

INDVAR  (LL,JJ)  = TNnEXA(I.T.) 

102  CONTINUE 

WRDVNT(JJ)  = TABNUM 
101  CONTINUE 
8750  FORMAT  (1X,5A8) 

1011  FORM  AT  (IX  ,4A8) 

8101  FORMAT(A8) 

80  31  FORMAT  (1  HO, 'ERROR') 

8764  FORM  AT  (1HQ, 'THIS  OPTION  HAS  NOT  BEEN  PROGRAMFD  YET') 
no  1701  1=1,120 
j-  POTAD  (I)  =1  OOOOO 
IPOT  (I)  = 1 CODOC 
1701  CONTINUE 

DO  1028  1=1,500 

READ  (ICDRD,  50,  END  = 32)  NOP  A R M , P AP  V A I. 

50  T^ORMAT  (13,  IX,  02  0.6) 

IF (NOPAPE ,EO. 304)  GO  TO  1212 
1100  PAP  AM (NOP  ARM) =PAKVAL 
1028  CONTINUE 
32  WRITF  (ITT Y, 33) 

33  FOPMATC  END  CF  CARDS') 

2222  CONTINUE 

DO  9007  1=1, 4H 
CALL  UNFORM  (TCDRD, 1) 

CALL  FINDNM  (K,J,  1, 69007) 

NAMDAC(I)=J 
DACPI.A  (T)  =K 
SCALDC (I) =FNUAA  (1) 


MAIN2400 
HATN2410 
MAIN2420 
K AIN  24  30 
MAIN2440 
MAIN2450 
MATN2460 
M AIN2470 
M AI N2480 
M ATN249C 
MAIN 2 500 
H AIN251G 
MAIN2520 
n ATN2530 
M AIN254C 
MAIN255C 
MAIN2560 
M ATN2570 
MAIN? 5 80 
MAIN2590 
MATN2600 
M AIN261D 
MAIN? 620 
M MN26  30 
M AIN264C 
MATN265C 
M AIN2660 
n ATN267C 
M ATN268C 
M AIN269C 
M ATN2700 
M A IN2710 
KAIN2720 
MAIN  27 30 
M ATN274C 
MAIN2750 
M ATN2760 
M AIN2770 
MAIN 2 780 
M AIN2790 
M AIN2R00 
M A T N 2 8 1 0 
MAIN2R20 
MATN283C 
M A IN  28 40 
M AIN2850 
.MAIN2  86C 
MAIN2870 
M ATN283C 
MAI N2B90 
MAIN2900 

MATN2D1D 
M AI N2920 
MAIM2930 
MATN29UC 
M AIN  2 950 
M ATN2  96'' 
M AIN 2 970 
M ATN2^80 
MAT  M2 9 90 
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TDAC  (I)=TNDEXA  (1) 

9007  CONTINUE 

DO  .1269  1 = 1 ,28 
CALL  UNFOBM  (ICDRD,  1) 

CALL  PINDNM (K, J, 1, &1 269) 

NAMADC(T)=J 

ADCPLA(I)=K 

lADC  (I)=INDEXA(1) 

SCALAC  (I) =PNnNA  (1) 

1269  CONTINUE 

CALL  POTSET 
CALL  SBPG4 
1689  CONTINUE 

DO  661  1=1, NCO^ 

661  CONTINUE 


KAIN3C00 
K A TM  30  1C 
AT  N3020 
MAIN301C 
hAIN30UC 
MAIN  3050 
MAIN  3060 
MAIN3C70 
MAIN3GB0 
«AIN309^ 
MAIN3  100 
BAIN31 10 
MATM312C 
NAIN3130 
MAIN314^ 


C ♦ ♦ 

C ♦ INITIALIZATION  PASS  * 

C ♦ * 

C 1 LOAD  JDATE  AbRAY 

C 2 WRITE  TT1F  AND  DATE 

CALL  IDATE (JDATE) 

CALL  TIMDAT  (JDATE,  ITTY) 


MATN3  15C 
M AIN3  160 
KAIN317r 
MAIN3  18C 
A IN  3 190 
M AIN3200 
M A I N 3 2 1 0 
H AIN3220 
11MN323C 


C 

Q ♦)4(  ♦♦♦♦♦♦♦  ♦♦ 

c ♦ ♦ 

C * OPTION  TEST  ♦ - ENTER  A NAME  FRON  KFYRD  (OPTEST) 

C ♦ •* 

C 

C 1 IF  OPTEST  IS  AN  OPTION  KEYWORD  PASS  CONTROL  TO  OPTION 

C 2 IF  OPTEST  TS  AN  OUTPUT  KEYWuRD  PASS  CONTROL  TO  OUTPIIT 

C 3 IF  OPTFST  TS  IN  THE  ANA.NE  ARRAY  WRTTF,  ITS  PRFSFNT  AND 

C 4 IF  OPTFST  IS  EOUAL  TO  PFSPT  GO  TC  PESST  ROU'^INE 

C 5 IF  NONE  OF  THE  AEOV'B  ENVOK^  ERROR  MONITOR 

C 


MATN325C 
EAT  N3260 
MAIN327'^ 
r AIN32P0 
M AIN3290 
M AI  N3  30'^ 
NAIN3310 
EXErUTTW  AIN332C 
ARRAY  AMAIN333C 
I N I 'T  ALMMN3  34C 
YAIN335r 
•SAIN  3 36C 
‘1ATN  3 370 


8749  WRITE  (ITTY, 8704) 

8754  FORNAT (1  HO, ‘OPTION ') 

PEAD  (KEY  3D, 10  n ) OPTFST 
ion  FORNAT(1A0) 

8450  CONTINU‘=’ 

LSTAPT= ( 

I.  AST  = 80 
SEL  EC'‘’=OPTEST 
LVtC=  1 

DO  8756  IOR=1 
TF  (OPTION  (TOR 
8756  CONTINUE 


DO  8765  IS  = 
IF (OPTFST.  ] 

continue 
GO  TO  8768 


MAIN. 3 ?80 
/ AIN3  3 90 
•*  A IN  3 400 


,1*3 

N AIN  34  1C 
'•  AT  N342P 
« ATN343C 
M a IN. 3 4 4^ 
N ilj:3450 
MAIN  3460 
N AT  N347C 

).E0. OPTFST)  GO  TO  8758 

MA I N3480 

REMOVE)  GO  TC  82  3<i 

MATN3490 

'iATN350r 

FES’^T)  GO  TO  8 2 30 

•MATN3510 

NXM)  GO  TO  880  2 

M ATNJ52C 

15 

M AIN3530 

'SFI.T(TS))  Gf)  TO  720 

**  AI  N'<  54'' 

T 

MAIN  3550 

...  " . . MATN'IS-'O 

MATN3570 

ISO'' 

MAIN  35^'’' 
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CONTROL  IS  PASSED  FROM  OPTION  TEST 


C ♦ ♦ 

C * OPTION  EXECUTIVE  * 

C ♦ * 

C IF  OPTEST  IS  F3UAL  TO: 

C 1 X - TRANSFER  CONTROL  TO  EXECUTION  REGION 

C 2 IC  - TRANSFER  CONTROL  TO  EXECUTION  REGION 

C 3 OUTPUT  - TRANSFER  CONTROL  TO  OUTPUT  ARRAY  ASSEMBLER 

C 4 TERM  - TRANSFER  CONTROL  TO  TERMINAL  REGION 

C 5 ADCA  - ALTER  ADC  ARRAY 

C 6 DACA  - ALTER  DAC  ARRAY 

C ' 7 F ~ FLOATING  POINT  OPERATIONS 

C 8 I - INTEGER  OPERATIONS 

C 9 MES  “ SEND  MESSAGE  TO  LINE  PRINTER 

C 10  TEST  - EXECUTE  TEST  ROUTINE 

C 11  RF-STR  - RESTART  FLIGHT  PHASE  SEQUENCER 

C 12  IF  NONE  0’=’  THE  ABOVE  RETURN  TO  OPTION  TEST 

8758  CONTINUE 

IF(OPTEST.EQ. NX)  GO  TO  8802 
IF(OPTEST. EQ. NTERM)  GO  TO  8809 
IF  (OPTBSTaSQ. NIC)  GO  TO  8802 
IF(OPTEST.EQ. NRESR)  GO  TO  8888 
C 

IF (OPTEST ,NE. NADCA)  GO  TO  5000 

C #####  ADC  ROUTINE  ####“ 

CALL  ADCA  (A  DC  Nil  N , NAM  ADC  , I A DC  , SCAL  AC  , A DCPL  A , ITT  Y , K EY  BD ) 
5000  CONTINUE 

IP  (OPTEST. NE. Nil. AND. OPTEST. NF. NFF)  GO  TO  5010 

C##### — -ALTER  OR  READ  DATA  LIST  ##### 

CALI.  RDWRT  (OPTEST) 

5010  CONTINUE 

IF  (OPTEST. NE. NDACA)  GO  TO  5020 
C #####  — -DAC  ROURINE ##### 


CALL 

DACA 

(DA 

CNUM, 

50 

20 

CONTINUE 

IF(0 

PTEST 

.NE. 

NMES) 

C # 

«# 

»# 

MESS 

AG? 

ROUTI 

CALL 

MESR 

TN  (I 

TTY,K 

50 

35 

CONT 

INUE 

IF  (0 

PTEST 

.NE. 

NMULT 

C#### 

# 

MULTI 

Rf)N 

ft 

CALL 

MOLT 

PN  ( 

ITTY, 

50 

40 

CONT 

INUF 

IF(0 

PTFST 

.N  P. 

NTFST 

c## 

#4#-  — 

TEST 

0?TI 

ON  — 

CALL 

TEST 

F ifKE 

Y8D  ,I 

5050  CONTINUE 

GO  TO  8749 


AIN3600 
AIN3610 
AIN3620 
AIN3630 
AIN364C 
AIN365P 
AIN366C 
ATN367C 
AIN  36 80 
AIN3690 


MAIN3700 
MAIN3710 
M AIN3720 

h; 

M] 

Mi 

Mi 

M] 

Mi 
M i 
M, 

Ml 
M. 

Hi 

Mi 
Mi 
M , 

M' 

Mi 
Hj 
M, 

Mi 

Mi 

Mi 

Mi 


c « * 

c ♦ OUTPUT  ARRAY  ASSEMBLER  ♦ 
C * ♦ 

c 

720  WRITE ( ITT Y, 700) 

700  FORMAT(1H  UNIT,  MOD  E ’) 


CALLED  '^ROM  THE  OPTION  TEST  np  EXECUTIVE 


M 

M 

M 

Wi 

Mi 

Mi 

Hi 

Mi 

Hi 

Mi 
M , 
M, 
Mi 
M ! 

« « « « Xjr  M j 

H 

Mi 

m; 

M 
H 

Mi 

Mi 
Mi 

Hi 


A I 


N373C 

N3 

740 

N3 

75C 

N3 

76C 

N3 

770 

N3 

78G 

N3 

790 

N3 

800 

N1 

81C 

N3 

8 20 

N3 

830 

N3 

340 

N3850 

N3 

860 

N3 

870 

N3 

880 

N3 

890 

N3 

900 

N3 

910 

N3 

920 

N3 

9 30 

N3 

940 

N39  5'^ 

N 3960 

N3 

970 

N3 

9 PC 

N3 

990 

N4 

000 

N4 

010 

N4 

020 

N4 

0 3C 

N4 

04  0 

N4 

0 50 

N4 

06G 

N4 

070 

N4 

080 

N4 

0 90 

NU 

100 

N4 

110 

N4 

120 

N4 

1 30 

N4 

140 

N4 

15E 

N4 

16^ 

N4 

170 

N4 

180 

N4 

1 or 
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uALL  UNFOBM  (5,1) 

DO  705  IOU=1,3 

IFfUNNAK  (lOU)  ,EQ,NAKEA(1) ) GO  TO  710 
705  CONTTNOE 

W3ITE(ITTY,715) 

715  FOEHAT(1H  ,«FCR  UNIT  ENTER  L (LIN  PT)  , T (TELE), 
GO  TO  720 

710  DO  725  ?!ODE=1  ,4 

IF(MODENA  (MODE;  .EQ.NANEA  (2)  ) GO  TO  730 
725  CONTINUE 

HRITE(ITTY,735) 

735  FOFMAT(1H  MODE  ENTER  A (ALL),  S (SING.),  N 

' 1ECUTION)  ») 

GO  TO  T20 
730  CONTINUE 
C 

8215  CONTINUE 

IF (SELECT. NE. NLA)  GO  TO  2005 
CALL  ASAST 
2005  CONTINUE 

IF  (SELECT.  NE.  NTABLE)  GO  TO  2010 

CS#### TABLE  SET  UP 0#### 

CALL  TABLES  (I'T'TY, KEYED) 

2010  CONTINUE 

IF(SELECT.NE.NT?,ACK)  GO  TO  20  20 

C##### TRACK  ROUTINE  

CALL  TRACKS  {ITTY,KEYBD,DTIN) 

2020  CONTINUE 


N AIN4200 
M AINi.210 
NATN4220 
MAIN423C 
NAIN42t.C 

B (BOTH)  *)  i*AlF425r 

hAIN4260 
KAIK4270 
FAIH478C 
KAIWH29C 
M AIN4  3C0 

(MULTI),  XEQ  (EXF.AI«4310 
rtP.IN432C 
MAIN433C 
MAIN434C 
ISAIN4350 
n AIN4360 
MAIN4  370 
MATK4380 
M AINU  390 
KAIN4400 
MAIN44‘’'' 
MAIN443C 
M ATN4430 
MAIN4440 
MAIN4450 
!lAIN44fC 
MAIN 44 70 


C##### SET  OP  OUTPUT  NAME  ARRAY  ##### 

IF  (MODE.  NE. 2)  SO  TO  670 
CUTNAM(21)=OPTEST 
DEVICE (21) =IOU 
GO  TO  8253 
670  DO  741  JJ=1,2C 

I^(OUTNAM  (JJ)  . EQ.OPTEST)  CO  TO  74C 
741  CONTINUE 

DO  745  JJ^-1,2C 

I?  (OUTNAM  (JJ)  . EQ. BLANK)  GO  TO  740 
745  CONTINUE 
740  OUTNAM  (JJ) =CPTEST 
IMODE  (JJ)  =MODE 
DEVICE (JJ) =TOU 
GO  TO  8740 

REMOVE  SIMLF  VARIABLE 

8234  CONTINUE 


KAIN44RC 
M AINU  4 90 
MATN450C 
HAIN4510 
MAIN4520 
M AIf:45  30 
M AIN4540 
MAIK455C 
H AIN4560 
MAIN4570 
MAIN45B0 
M AIN4500 
M AIN4  600 
MAIN46  10 
MAIN4620 
M AINU  630 
MATN4  64  0 


WRITE  (IT?Y,35C) 

350  FORMAT  (1H  ,'7  HAT') 

READ  (KEYBD, 10 31)  OPTEST 
DO  735C  I^1,2C 

' IF  (OUTNAM  (I)  . EQ.  OPTES'^)  OUT  N AM  (T)  =BLANK 
7350  CONTINUE 

GO  TO  8749 

C##### RESET  OUTPUT  NAME  ARRAY  ##«## 

C 

C LOAD  OUTPUT  NAME  ARRAY  WITH  BLANKS 

8230  DO  8231  I=l,2( 

OUTNAM (I) =RLANK 

8231  CONTINUE 
GO  TO  8749 


MATN4  6'^^ 
MPIN46CC 
R AIN4670 
MAIN  4680 
MAIN4690 
MArwU7C0 
M AIN4710 
MATN4720 
MAIN4  730 
M AINU740 
M ATN475C 
;1  AI  N4760 
M AINU77C 
M ATN4  780 
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c 

C ♦ ♦ 

C ♦ EXECUTION  REGION  ♦ - CONTROL  IS  TRANSFERED  FROM  OPTION  EXECUTIVE 

C ♦ « 

8802  CONTINUE 

C 1 PILL  BVAIIIE  ARRAY  WITH  INITIAL  CONDITIONS 

C 2 SET  POTS 

C 3 SET  DACS 

C 4 EQUIVALENCE  ♦ STORE  IC 

C ^ 5 IF  REAL  TIME  IS  CALLED  ENTER  FLAGE 

C ' 6 WRITE  TIME, DATE,  AND  RUN  NUMBER 

C 7 CHANGE  ALALOG  MODE 

C SAVHTP  INIALI7ED  TO  PARAM(129)  AFTER  ISN  10 

IE (OPTEST .EQ. NIC)  GO  TO  170 
LRUNS=LRUNS'J>1 
ITRUNS=ITPUNS+1 
170  CONTINUE 

IP(ICT*EQ.O. OF. OPTEST. NE.NXM)  GO  TO  165 
DO  160  1=1, ICT 

IP{LRUNS.LT.LOOPN (I) ) GOTO  16C 
KTEMP=LRUNS-LOOPN (T) 

B VALUE  (LOCAT  (1) ) =VALNP (I)  + FLO  AT  (KTEM?) *FI NLMR (I) 

160  CONTINUE 
165  CONTINUE 

(SAVHTP. EQ.  PARAM  (1  29)  ) GO  TO  500 
CALL  VHTPTC 
I=IFIX  (PARAM (129)  ) 

IF(I.EQ.O)  1 = 7 
TABNUM  = WRDVNT(I) 

DO  40  J=1,TABNOK 
NAMEA  (J)  = TABVAR  (J,  I) 

INDEXA(J)  = INDVAR(J,I) 

40  CONTINUE 

DO  100  1=1, TABNUM 

CALL  FINDNM  (K, J, 1,6 1 00)  ' 

ITARI  (I)  =INDEXA  (I) 

ITNAM  (I)  =J 
ITABP  (I)  =K 
100  CONTINUE 
500  ’ONTIRUE 

SAVHTP  = PARAM (129) 

IF  (RFALT.  GT.  . 5)  IRT=1 
RTSW  = IFIX  (REAL?) 

IF (ICT.EQ.O. OP. OPTEST. NE, NXM)  GO  TO  155 
DO  150  1=1, ICT 

IF(LRUWS.  IT.LCOPN(I)  ) GO  TO  150 
KTEMP=LRUNS-LOOPN (I) 

BVALUE  (LOCAT(I)  ) =VALMR  (I)  +FLOAT  (KTEMP)  >^FI  NLMR(T) 

150  CONTINOF 
155  CONTINUE 

CALL  POTS  FT 

IF  (REALT . LT., 5)  GO  TO  75 
DO  1702  1=1,120 

IF (IPOT(I) . EQ. IPOTAD (I)  ) GO  TO  1702 
CALL  POTCHK  (I,IPOT  (I)  ,3,S9152,Sai52) 

IPOTAD  (I)  =IPOT  (I)  • 

1702  CONTINUE 
75  CONTINUE 


BAIN4800 
M AIN4810 
MAIN4820 
MAIN 4 8 30 
MAIN4840 
MATN4850 
K AIN4360 
MAIN4870 
M AT  N4880 
M AIN4890 
M AIN4900 
MAIN4910 
MAIN4920 
M AIN4930 
MAIN494C 
SAIN4950 
M AIN4960 
MAIN4970 
MAIN498C 
M AIN49H0 
M AIN5000 
MAIN50ir 
MAIM502C 
MAIN5030 
MAIN5C40 
M A TN5050 
MAIN5060 
M AIN5070 
MAIN5080 
M AIN5C90 
M AIN5  100 
H AIN51 10 
MATN5  120 
MAIN5130 
MAIN5140 
MAIN5150 
MAINS  160 
MATN517C 
MAIN5180 
M AIN5190 
MATN5200 
M AIN5210 
MAIN5220 
M AIN5230 
M AIN5240 
MAI N525C 
MAIN526C 
MAIN5270 
MAIN5280 
MAIN5290 
MATN53C0 
MAIN  5 3 10 
MATN532F 
M AIN5330 
M AIN534C 
MAI N5350 
MAIN536^ 
MAINS  37'} 
M AIN5  3RC 
M AI N5390 
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n n n n Ci  n 


CALL  SBPG4 

CALL  SAWO  (6,ISAP50E) 

TKEEP=ISAKP-1 

TDACK^O 

JIN  = 0 

IF(IOR«EQ. 12)  ;0  TO  8749 

CALL  SAITEU  (200) 
lE(LEUNS.GT.I)  GO  TO  1888 
CALL  TIHDAT  (JDATE,  ITTY) 

CALL  TIMDAT (JDATE,LPTP) 

WRITE  (LPTR, 9050)  ITRCNS 
WRITE  (ITTY, 9050)  ITRUNS 
9050  FORMAT  (1  HO, » RUN  HAS  STARTED*/ 1 HO , 

1  'ODTPOT  BELOW* ) 

1888  CONTINUE 

CALL  CLOCK (NTIME1) 


##### ENTER  8EAI  TIME  PART  ##### 

AT  THIS  POINT  THE  RTWCN  SUBPROGRAM  IS  ACTIVATED 
PTMON  TNTURN  EXECUTS  THE  MODLE 


C 

c 

r' 

c 

c 

C 

C 

c 

C 

c 

C 

C 

C 

C 

C 


TVHTP  = PARAM  (129)  + .5 

CALL  RTMON 
CALL  CMPVAP 

WHEN  EXECUTION  TAKES  PLACE  THE  FOLLOWING  TAKES  PIACF: 

1 REAL  TIME  PRECFNT  IS  CALCULATED 

2 CHANGE  ANALOGE  HOUE 

3 CALCULATE  RUN  MODE 

4 EXECUTE  SELECTED  OUTPUTS  FOR  GIVEN  MODE 

B MODE=3  FOR  MULTI- RUN 
A M)DE=1  pop  SINGLE  RUN 

5 IP  MODE  IS  ECUAL  TO  TWO  GO  TO  OPTION  TEST 

6 IF  program  is  I N MULTI-RUN  IRUNS  IS  GPEATOP  TfiAN  I.RIINS 

A INCREMENT  VARIABLES  SELECTED 
B FXECUTI-:  NEXT  PUN 

7 END  CF  RUN  LPUN  S = 0 , MRUNS=  1 
a RETURN  TO  OPTION  TEST 


CALL  CLOCK (NTIME2) 

NRTIMP^NTIM  E2-NTIM'='1 

IP  (NPTIME  .GT,  1)  P,TPEP=  (TIM  F =«  1 00  0 D . ) /FLOAT  (K»TIME) 
MODE= 1 


TF(OPTfiST.  FO.  FXM)  Mnnii=  3 
no  3210  I=1,4P 

IF(I.F0.  19.OR.I.F0.2C)  rTM?(i)  =IOUT(I) 
3210  CONTINUE 

CALL  LBO  AFP  (00,47,  DA  CO,  ILBDA’^} 

CALL  TLOA 
E^F=C. 0 

IF(  ADOUT.  NE.O  .0)  F,EF=  ANOUT/ADOUT 
8253  CONTINUE 

DO  8943  1=1,20 

IFP=1 

ILA=2 

IF  (MODE. NF. 2)  GO  to  555 
CNAMF  = OUTNAM'(21)  •' 

IF  (DEVICE  (21)  . EQ.  1)  TLA=1 
IF(DEVTCE  (21)  .E0.2)  IFF  = 2 


-MAINS  4 00 
MATES  4 10 
FiAIN5.’;2C 
MAXN5430 
(UINSUilC 

M AINSAtiC 

MAIN547C 
M AI^i^4BC 
3AXNS490 
MATN550D 
HAIN5S10 
M AIK5520 
MATN5530 
MAINSf-aC 
H a.TN5550 
MAIN  559  0 
MAIU5570 
MATN558C 
KAIN559C 
MATN560C 
MAIM5MO 

« ATNSo?'* 

HAIN5h3C 
MAjN5o4C 
MAINS 6 SO 
r ATNSOfiO 
MAINS  07  0 
NPINSOHO 
M AIMS 9 90 

MAINS 7 UP 

MATN5710 
MAI  NS  7 20 
M A2  N57  30 
MAINS  74  0 
MAIN57S0 
M A1N5760 
KRIN577C 
HAIN5780 
M AIN57CC 
M ATNS«00 
FAT  N5H10 
K MN5B20 
MAINS8  3'' 
MU  NS 84  0 
MATNSaSO 
M ATNS880 
M AIN53  f{) 
MAT  NS  BBC 
M ArNSB9C 
M ATN5900 
MAT  NS910 
MATN592C 
MATN5930 
M ATNS94-' 
MAI NS950 
MAINSDfev' 
M AIN597I' 

MAI  NS  980 
M A INS  9 90 
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1 = 20 

M AIN600C 

GO  TO  550 

MAIN601C 

555 

IF(IMODE (I) .E0.4)  GO  TO  560 

HAIN602C 

IF  (IMODE  (I)  .EC. HODE)  GO  TO  560 

MAIN6030 

GO  TO  8943 

M AIN604C 

560 

CNARE=OUTNAM (I) 

MATN605C 

TF(CNAHE.EQ.BI ANK)  GO  TO  8943 

MAIN606O 

IF  (DEVICE  fl)  . FO.  1)  TLA=1 

M ATN6070 

IF(DEVICE(I)  .F0.2)  IFR  = 2 

MATN608C 

550 

CONTINUE 

MAIN609C 

DO  8946  K=IPB,TLA 

MAIN6  100 

IF(K.EQ.I)  MOpa=LPTR 

M AIN6  lie 

' 

IF(K.E0.2)  M0P'J=ITTY 

MAIN6 12C 

IF  (CNAME.  NE.NADCL)  GOTO  3000 

MAIN6  1 3C 

C ##### LIST  ADC  ARRAY  ##i## 

M.ATN6  14D 

CALL  LST  ACC  { A I CNUM  ,MOPO  , N A H A DC  , I A DC,  SC  ALA  C,  OR  N A •1’^) 

MAIN6 15C 

GO  TO  8946 

MAIN6160 

3000 

CONTINUE 

MAIN6 17C 

IF(CNASE.  NE.NDACL)  GOTO  3010 

MAIN6180 

ctt««« 

LIST  DAC  ARRAY  ###«# 

MAIN619C 

CALL  LST  DAC  (D  ACNUM  , M CPU  , I D AC,  S C AL  DC  , N A MDA  C,  OP.  N A '"E  ) 

M AIN62^0 

GO  TO  8946 

M AIN6  21 

3010 

CONTINUE 

M AIN622C 

IF  (CNAME.  NE.NDUMP)  GO  TO  3020 

M AIN623r 

DUMP #«### 

M AIN624C 

CALL  DUMP  (MOPU,NCOM  ,IORDER,OBNAMF, nVALUF) 

M AIN625C 

GO  TO  8946 

MATN626C 

3020 

CONTINUE 

M AIN6270 

IF(CNA«E, NS.NI  A)  GO  TO  3010 

AIN6  280 

CALL  ARAWT (MOI U, PVALUE,  ORNAME) 

MAT N6 290 

GO  TO  8946 

MAIN63C0 

3030 

CONTINUE 

M AIN63  10 

IF(CNAME. NE. NFPC)  GO  TO  3040 

M ATN6320 

GO  TO  8946 

MAIN6330 

3040 

CONTINUE 

M AIN634C 

IF(CNAME. NE. NFLOT)  GO  TO  3050 

MAIN6350 

WRITE (ITT Y, 8764) 

M AI N636^ 

GO  TO  8946 

M ATN6  370 

3050 

CONTINUE 

M AIN6  380 

IF (CNAME. NE. NST AT)  GOTO  3C 6C 

MAI N6390 

WRITE(ITTY,B764) 

MAIU640O 

• 

GO  TO  8946 

M M N6  4 1C 

3060 

CONTINUE 

M AIN6420 

IF  (CNAME.  NF. NT  CD)  GO  TO  3 3 70 

M AT 

STD  OUTPUT  ---##### 

M AIN6440 

c####4 

---  STD  OUTPUT  ###«# 

M AIN645C 

W R IT E ( ITT  Y , 2 3 5 ) A X A V F , T I M D FC  , CU V B AT  , P TTD  M X , B ’^T  A X , DF  L RET  , 

M AIN646C 

1AYMAX,  PHI  MAX,  FMAX  , DE  I , DELPS I , DS  W X A X , TQ  A X , TQR  M AX 

M AIN647C 

2345  FORMAT{«0  A X A V=  ' , F R.  3 , • DFCL  TI = . 3 , • ."•Vcn , F3  . 3,  ’ PT  D AX  ^ ’ m AI N A 4 RC 

BT*1AX=’  ,F8. 3 ,•  DELBT=  ' , . 3/  MAINF49C 

1*  AYMAX=  » ,^B.  3,  • PHiriAX=*  ,^B.  3 , ' PM  A.  X=  » , P B . 3 , ' LANK  CHNG  DKL=^»,  HAIN650C 
1F8.3,'  DFLPSI  = ',F8.3,'  MAX  ST  E ER  = ' , ’='8  . .3/  M.AIN651? 

1*  t?tPOMAX  = ' ,F8.  3 , • RTRQMAX=  » , F8. 3/)  MAIN552C 

GO  TO  8446  - .r  , MAIN653^ 

3070  CONTINUE  MAINo-SaP 

I’='(CNAME,  NE.NT  ABLE)  GO  TO  3080  ' MATN655(; 

TABLE  OriTf  U'T’  ---##»##  . MAINhSBC 

CALL  TABLEO  (Mf'?!I,OHN  AME,  LRUNS,  ITRUNG,  OVALUF)  MAIN657C 

GO  TO  8946  *'  ' MAIN65HC 

3080  CONTINUE  MAIN65GC 
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I - (CNAMF,,  NE,NT'"STO)  GOTO  1085 

MAIN66CC 

c##### 

“ — TEST  VALUE  OUTPUT --##### 

F A I S.6  6 TC 

GO  TO  8946 

R AIX662C 

3085 

CONTINUE 

M.AINf6  30 

I?(CNAHE.NE„NT:t1D)  GO  TO  1090 

K AIN-6640 

C##ii## 

:-““D  ATE“““####4 

M AIN6650 

CALL  TIMDAT (JDATE, nOPU) 

SAIN666C 

GO  TO  8946 

MAIN66‘'0 

3090 

CONTINOH 

RAIN668C 

IF(CNAME.  NE.  NT -I)  GO  TO  3100 

M AIF6690 

CALL  ERMONT (MCPU ,OBN AME, NAMDAC, IDAC, PHIHAX) 

MAIN670C 

GO  TO  8946 

KAIN6''1C 

3100 

CONTINUE 

MAIN672C 

IF(CNAHE. NE.NTIACK)  GOTO  3110 

H A.r  N673C 

TRACK  OUTPUT  -—##### 

NAIN674C 

CALL  TRACC(ROr  I, ORNAME, DTIS) 

KAIN6750 

GO  TO  8946 

NAIN676r 

3110 

CONTINUE 

MAINS  770 

8946 

CONTINUE 

NMN67  3C 

8 94  3 

CONTINUE 

U AIN679C 

IF (NODE. EQ. 2)  10  TO  8749 

^ AIH680C 

IP  (OPTEST.EO.  K:<)  GO  TO  8152 

MAIN6810 

01  5C 

IF (TRUNS. FQ.LFUNS)  GO  TO  8152 

n AIN682C 

GO  TO  8802 

MAI M663C 

R152 

CONTINUE 

RA  rN6840 

LRUNS=0 

MAIN6858 

GO  TO  8749 

F.AIN636  0 

C 

F AIN687C 

C 

C##### OPTION  ERF')R #«### 

876R  CONTINUE 

WRITE  (ITTY,  8031) 

REAn(KEYBC,R1C  1)  OP'^EST 
IF  (OPTFST.  Ntt.  c:UE3)  00  TO  84  50 
WRITE (I^TY, 876^) 

8762  FORMAT  (1  HO, 'OETIOM  NOT  FOJJN  D • / ">  80  , 


1 

« TO 

XEQ.  PROGRAM 

T y *'E 

X V ■>  U r 

1 

»TO 

TFRIINATE  PROGRAM 

TYPE 

TERM* /1H0 , 

1 

• ^OR 

MULTIPLE  3UN3 

TYPE 

MULTI '/I  no , 

1 

» FOP 

TEST  PUN  7R  ASF.  ND 

TYPE 

TEST*/1H0, 

1 

’TO 

ALTER  DAC  AuPAY 

T Y P E 

OACA’ /1H0, 

1 

•TO 

ALTER  ADC  ARRAY 

TYPE 

AnCA’/lHO, 

1 

• TO 

SET  IC  ONI/ 

TY  .’E 

■^c  */u:o , 

1 

• TO 

SEND  messa;^  to  LP 

TYPE 

M E S * / 1 u 0 , 

1 

• FOR 

TIME  AND  DATE 

TYPE  T + DV1UP, 

1 

• TO 

DUMP  DATA  LIST 

TYPE  DUMP '/ 'H"  , 

1 

' FOR 

STAN  CARD  OUTPUT 

TYP”'  STD’/ 180, 

1 

• FOP 

TEST  VARIABLES 

TYPE  TE3TO'/180 

1 

•TO 

RESET  (NC  OUTPUT) 

TYPE  PESET'/I^'U 

1 

’ TO 

TRACK  REAL  TIME  VAR 

lABL 

ES  "^YPE  TRACK '/I  8 C 

1 

’ FOP 

TABULAR  OUTPUT 

TYPE  TABLE' ,/1  8 0 

1 

•TO 

LIST  DAC  ARRAY 

^YFC  PACL'/riO, 

1 

' TO 

LIST  ADC  A'^PAY 

TYPE  ADCLV18C» 

1 

• -"OR 

TERMINA-”!  )N  MONITOR 

TYPE  T M ' ) 

GO  TO  8749 

Cfr#### TER'IINATE  tilt#*# 

8809  OSFCB=0 

CALL  TIMD  AT  (Jr  \TF,  ITTY) 
IF(IRT.NE. 1)  r ) TO  5 607 


rt AIN6R9C 
K AIN69C0 
f^AIN6910 
R AIN692C 
R AIN6R13C 
RMN694r 
RA IN6950 
R AINB'^RO 
RAI N697C 
RATN6980 
R A1N6  99C 
R AIN7000 
MAT  N7010 
HATN702C 
M A IN70  30 
M A.CN70i;r 
M AIN7050 
M MN7C60 
RA:.N7G7G 
--AINTOHO 
'R  AT N 7090 
RAI N710C 
•MAIN71  1C 
R ATN712C 
R ATN71 3C 
R AIN7140 
R MN7  150 
f1  AIN716C 
MAT  N717C 
M AIN7 18C 
NAIM  7 19C 
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CALL  HPOS? ( DONECP, • J007*  ) 
CALL  WAITRT  jfOS’^CB)  ' , 

5607  CONTINDE 

WRITE{ITTY»8821) 

8821  POBHAT(1H0, ‘PROGRAM  TERMINATED') 
CALL  RACN  (1 ,IRACNE) 

CALL  HBTOFF 
CALL  FDOFF 
STOP 
END 


MAI N720C 
M ATN7210 
M AIN7220 
MAIN  7230 
MAIN7240 
MAIN 7 250 
MAI N7260 
HAIN7270 
HAIN7280 
MAIN7290 
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'■'vf;  ■ # 

(\^.,y^^)A^»„ 
■ 0X4^./^  *f-.}:, 


BCE-T-0530 


2.1.2  SBPG4 

PRESENTED  HERE  IS  THE  FORTRAN  LISTING  FOR  THE 
INITIALIZATION  SUBPROGRAM.  THE  FOLLOWING  IS 
PERFORMED  IN  SBPG4 : 

1)  Calculation  of  initial  conditions  using 
input  data. 

2)  Initialization  of  digital-to-analog  con- 
verters to  their  time  = 0 values. 
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•m-  : ax  .SM5  dSTM3B^4 

?.  1 c>(iS. 

jj'A*:*? lifMKJi-  ri>r-;ifii  t<9-‘ fiy 


lijii 


c 

c 


SCP4,TBCR3 , TBCB4, 

,IAX 

v^vyijuvji'i/ir*.i,i\/  nc  i»rn  i.j/iPJjAP4jAPb»BTC1^  BTC2 
C0MM0N/FEES/FFE1 ,FEE2,THE1 ,THE2 
COnnON/FBIDAY/BTVM AX ,8TVTB (ICO) 

CO«HON/THINOS/TMAX1,TMAX2rTf1AX3,TQEHAX,TC)FPiAX  ,P -aMAX^ONEB 
COHMON/EES/01 ,02,03, E4,E5, E6 
C0H!10N/ALPHA/ALPH  (20) 

COMMON/CO HBLK/AIXP,SH, AI YP , AI X ZP , GAM1 , GA « 2 , G AM  3 , A IX BR , AT YBB , 

1 AIZ3R,A1,A3,ATXZBB,A12,E1,E2,E3, DELTA, GV1 , G V2 , GP 1 , GP2  ,GB 1 , 

1 GP2,CIP,CI7?,BZF  ,PZR,A2T,CA20 ,CA23,  ANGNL,ANGNLO 

1 ,TB02,TF02,TS02, G,THRD,TWN7 

COMMON/TIRBLK/JJTIME,TinE,DT 

COnWON/SFFS/ANIfl,ADFN,ANUMDT, A DENDT , A N UMO , A DEN  0 , A NUMDO , ADENCO , 

1 ANOHT, ABOUT 
CORMON/XX/IDAC (48)  , I ADC (3?) 

COMnON/INOUT/IMA (32)  ,IOUTA  (48)  ,IN  (32)  , DAC^  (48)  , I3w1 ,ISW7 
1 SFOUT  (48)  , IPRT, ITMP (48) 

COMMON/UVW/VC, UIN 
CORMON/XYZ/  N'UMRP 
COMnCN/OPSW/IH3M 
CC«M0N/VABS/P,2»1 
I YO,ZO,THEC,  PI 


CCRMON/VABS/P, U, V , W , X , Y , Z , THE ,PHT, FBI , PO,  00, RO, UO, VO, KO, XO, 
1 YO,ZO,THEC, PHIO, PSIO 

C0RR0N/SP7BIK/N1 ,N2, IPOT  ( 1 20)  , I POT AD  ( 1 20)  , PAR  AM  (4  00) 
COHHON/HICKFY/IRUNTB  (002)  ,VTB  (002)  ,3NLTP  (C02)  , 3'’RTB(002)  , DOWT 
1 ) ,BTTB  (00  2)  ,DTB(00  2)  (0  0 2)  ,DYTP  (00  2)  , PST  (002)  ,NPIJN, 

YSPFC ,PSIM ,XPF 

CCflMON/X  B3/XB  (IE)  ,NS(4,1E)  ,DELX(4),XT(4),NNN 
C0nn0N/NCNAME/XEND,0,EXIT2 
COMnON/NEWER/TIME25,TIME3  0 
COMMON/CORVAR/  AXAVE,CUVR'A 


:end,o,exit2 

OMnON/NEWER/TIME2  5,TIME3  0, PST  5 , P HIM  A X , DS W M AX 
OM«  ON/COR  VAR/  AX  A VE  , CU  VR'AT  , PETD  R X ,CU  RTBP  , TI  M D E C, 
AXI,CUPVAV, ABBTV,  AYRAX,RRAX,DELBrT 
:RBR P,GETDL,TIKIN5,  TSTEP 

2) 


1) 

( 7) 

I 0) 


, ARS) 

,3) 


OUI VALENCE 
(PARAR  i 
(PARAR  ■' 

(PARAR  ( 

(PAPAR  (1 u, 

(PARAR  (1  3) 

(PARAR  (16) 

(PAPAR  (18) 

(PARAR  (22) 

(PARAR  (25) 

(PARAR  (28) 

(PARAR  (31) 

(PARAR  (34) 

(PARAR  (37) 

(PARAR  (44)  , AK 
(PARAR  (43)  ,4G 
2UIVALENCE 

(PARAR  (46)  , ANL1 ) 
(PARAR  (4  9)  , ATWF) 
(PARAR  (52)  , ARBR)® 


) 

AIZ) 
OF) 
AKF) 
OFT) 
CRP) 
ORC) 
RW) 
CAO) 
CA3) 
KDL) 
4G) 


A MU  F) 
,ZH) 
,TF) 
,ATX) 
,AIXZ) 
-■’F) 

, ALP  RF) 

\ r H n .H  n \ ^ y t , C R ) 
(PARAR  (26)  , AKR) 
?PARAR  f294  ,OR?) 


(PAP AR  ( 
(PARAR  ( 
(PARAR  ( 

( P A P A R ( M } 
(PAR  AR'(  14) 
(PARAR  (17) 
(PA^AR  (2 
(PARAR  (2 
(PARAR  (2d j 
(PARAR  (20) 

('’ARAM  (35) 
(PARAR  (38) 
(PA  PAM  (41 / 
(PARAR  (40) 


( 5) 
8) 
(11) 
(14) 
(17) 
-O) 
3) 


( P A P A R ( 

( "^  A t-  A R ' 
(PARAR  . 

( P A " A R ( 
(PAPA R{ 15) 
( ^ A F A R 


3) 

( 

{ 5) 
12) 


(PA PAM  (47) 
(PARAR  (50) 
(PARAR  (53) 


,CA1) 

,CA4) 

, AKSC) 
, A NI,2) 

, ATFW) 
, AIWH) 
, EPS  1) 


(18) 

(PA  ' AM (21  ) 

(PARA  R (24) 

(PAPA  R (27) 

(P  A‘/A  R ( 30) 

(P  AR.A.M  (33  ) 

(PAPA  M ( 36) 

(P  AFAR  (-39)  ,AISF 
(P AFAR (42)  , ANG) 
(PARA  K (45)',  A*<SL) 


A'/AR  (48)  ,HDL) 


{ ^ 
(PA 


SRPG 
SBPG 
SBPG 
SBPG 
SBPG 
SBPG 
TBS‘^  3 ,SBPG 
SPPG 
SBPG 
SBPG 
■ S BPG 
SPPG 
SBPG 
SBPG 
SBPG 
SBPG 
SBPG 
S BPG 
SPPG 
SBPG 
SB’^G 
SBPG 

, SPIN  (32)  ,SPPG 
SBPG 
SBPG 
SBPG 
SBPG 
SBPG 
SBPG 
SBPG 
B ('■'0  2SBPG 
SBPG 
SBPG 
SBPG 
SBPG 
SBPG 
SBPG 
S BPG 
S BPG 
SBPG 
SBPG 
SBPG 
SEPG 
SBPG 
SRPG 
3 BP  G 
SPPG 
SBPG 
S BPG 
SBPG 
SPPG 
SBPG 
SBPG 
SBPG 
SBPG 
SBPG 
SBPG 


JUMP,  DELST’"  , C-L 
DET,PSI,  BETARX, 
IVHTP 


, AMUR) 

>r.i) 

, AIY) 
,A1-R) 
,GFP1 
,OFC) 
,PR) 

, ALAMF) 
, AKRS) 
,01) 
CA2) 

A I 


A*"  (51  ) 


10 

20 

30 

40 

50 

60 

70 

80 

9C 

100 

lie 

120 

1 30 
140 
150 
160 
17C 
180 
IOC 
20C 
210 
220 
23C 

2 4C 
250 
260 
270 
280 
290 
3'^C 
310 
320 

3 30 
340 

3 50 
360 
370 
38C 
390 

4 00 
410 
42C 
430 
440 
450 
460 
470 
480 
490 
50  0 
510 
52C 

5 30 
54C 
550 
560 

C)-ir> 

5RC 

590 
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1 <PA8AM  (55)  ^PTBP) 

1 (PARA  « (58)  ^YKSI) 

1 (PARAH  (61)  ,TQDBR) 

1 (PARA8  (64)  ,QIN) 

1 (PARA«  (67)  ,VIN) 

t (PARAR  (70)  ,yXK) 

1 (PASA?J  (73)  ,PHIIN) 

1 (PAPAM  (76)  ,TENrj) 

1 (PARAS  (79)  ,^KT3) 

1 (PARAS  (82)  »HPS2) 

1 (PARAS  (85) 

EQ0I?ALS!5CE 


(56)  ,YSA1) 
(PRRAH  (59)  ,YHS2) 
(PAEAM  (62)  ,AK) 
(PARAS  (65)  ,RIN) 

(P ARAM  (68)  ,WIN) 
(PAPAS  (71)  ,ZIN) 
(PARAS  (74)  »PSIIN) 
(PARA0  (77)  ,AKT1) 
(PARAS  (80)  ,AKT4) 
(PARAM  (83)  , 8PS3) 
(PARAS  (86)  ,B2) 


(PA:-AS(57)  ,YSA2) 
(PAF.\S{60)  ,AKD) 
(FAFAM  (63)  , PI>4) 

(P AKA0 (66)  ^UIZ) 
(PAPAS  (6  9)  ^XIS) 

(P ARAM (72 THEIR) 
(PAFA«(75) ,DTIN) 
(PARAM (78) , AKT2) 
(PAPAS(BI)  ,PPS1) 
(PAEAS{84)  ,RPS4) 
(PARAS{97) ,B3) 


(PARAii(88)  ,B4)  , 

(PAR  AM  ( 91)  ,i-)EL3DN)  , 
(PARAK  ( 94) , DEL3IN) 
(PARAH  ( 97)  ,DF‘)niN) 
(PARAM  (100)  ,02PIN)  , 
(PARAM  (103)  , S1PIN)  , 
(PABAM  (106)  ,84PIN) , 


, (PAPAS  ( 90)  ,DEL2DN) 
(PAPAS  ( 93)  ,OELPIN)  , 
(PA  RAM (96)  ,PHIRN)  , 
in  PIN)  , 
U4PIN)  , 
S3PIN)  , 


(PAPAM  ( 89)  , DELIDN) 

(PAPAM  ( 92)  ,DELFIN)  ^ 

> (P  ARAM  ( 9 5)  ,PHrnN)  , 

, (PAEAM(  98) ,DFtf2IN) , (PAPAM(  99) 
(PAEAM  (101)  , U3PTN)  , (PA:'AM(1C2) 

(PAR AM  (10  4)  , S2PIN)  , (PA’'  AK  (105) 

(PAR  AM  (107)  ,PPP'T) 

(PARAM  (110)  ,TQM  AX)  , (PAR AM  (1H  ) , AKTQ)  , {PARAH  (112)  ^VCIN) 

1,  (PARAH  (1  13)  , SWHT)  , (PARAH  (114)  ,DSWCH)  , (PA  RAH  ( 11 '^)  ,TST)  , 

1 (PARAH  (1  16)  ,DSLP)  , (PARAH  (1  1 7)  ,CGAM)  , (PARAH  (118)  ,CS) 

1 , (PARAM  (119)  ,TURER)  , (PARAH  (120)  ,TQT’'BR) 

1 , (PARAH  (121)  ,PFL)  , (PARAH  (122) ,TTD)  , (PARAH  (123)  , nsrf) 

1 , (PARAH  (124)  ,TSW) 

EQUIVALENCE 

(PARAH  (1 30)  , AHCR) , (PARAH ( 1 3 1)  ,ESP)  ^ (PARAH  (132)  , AKSL 1) 

S (PARAH  (133)  , AKSL2)  , (PARAH  (134)  ,AA1)  , (PAPAH(1  35)  ,AA2)  , 

1 (PARAH  (136)  ,CCR)  , (PARAH (137)  ,CFCP)  , ( P A P AH (1 3 P ) , AP)  , 

1 (PARAH  (139)  ,EP1)  ^ (PARAH (1 40)  , EP 2)  , (PAPA H (141)  ,EHR1)  , 

1 (PAPAM  (142)  ,SPR2)  , 

1 (PAPAM  ( 143)  , AHL1 ) , (PARAH  (144)  ,AML2)  , (PA  RAH  (1  45)  ,PRIH) 

1 (PARAM  (146)  ,PWR)  , 

1 (PARAH  (19  6)  ,FPSK  1)  , (PARAH  ( 197)  ,EPSK2) 

EQUIVALENCE 

1 (PARA  M (284)  , HFC)  , (PAR  AM  ( 28  5)  , HP C) 

EQUIVALENCE 
1 (PARAM  (290)  , ROT)  , 

1 (PAPAM  (293) ,R A2) , 

EQUIVALENCE 

1 (PARAH  (296)  ,DFL1PT)  , (PARAH  (297)  ,9FL2D’1‘)  , (PARA'"  (:'98)  ,rEL3PT) 
1 (PARAH  (299)  ,DFI.1)  , (PARAH  ('<001  , DEL2)  , (PAPAS  ('<01  ) ,DEL3)  , 

1 (PARAH  (302)  vP6I3D)  , ( PAR  A ( .3  0 3 ) ,PHI?)  ,,  (PAR  AH  (3^  4)  , PFLFW  1)  , 

1 (PARAM  (305)  ,DFLFW2)  , (PAPAM  ( 306)  ,il  IF)  , (PAPAM(3^7)  , U2P)  , 

1 (PA  PAH (3  0 8)  ,U3P)  , (PAPAM  (3C9)  ,U4P)  , (PARAM  (3  »C)  , SIP)  , 

1 (PARAH  (31  1)  ,S2P)  , (PARAM  (312)  ,S3P)  , (PAFAH(313)  , 54p)  , 

1 (PARAH  (314)  ,QfiAN1)  , (PARAM  (315)  ,QnAN2)  , (PAPAM  (3  If.)  ,QHAN3)  , 

1 (PARAH  (317)  ,QUAN4)  , (PAPAM  (3  18)  ,ALPS1)  , (PARA“  (3  19)  ,A?.PS2)  , 

1 (PARAM  (3  20)  ,WSTH1)  ,(  PARAM  (3  2 1)  ^WCTEI)  , (PA  RAH  (322)  ,KSTH?)  , 

1 (PAP  AH  (323)  ,WCTH2)  , (PAPAM  (3  24)  .TOUT ( 1)  ) 

EQUIVALENCE  (NAHF(172) ,NAHEX  (1)  ) 

EQUIVALENCE  ( PHIR  D , D FL4  DT)  , {PHIP,r)EL4) 


(PAPAM  (29  1)  , RAC)  , (PARAH  (292)  , PA  1)  , 
(PAPAM (294)  ,R  A3)  , ( PAP  A H ( 2 9 5)  , R A4) 


DATA  NAME/' 


MS», 
’ T.S’, 

• KF*  , 

* CMIC’  „ 

' A3', 

» LARI'  , 

# prp,  ^ 

•P-IN'  ,'Q-Isn 


' Tr  ' 

»CFPR' 
» LA  MR  ' 

' A2' 

• LARC* 

I 1 


i1  UF» 
IX* 
LAHF' 
OH  RT' 
A4* 
IFW 
Y S A 1 * 
L(-  IN' 


' HUH* 
' I Y ' 
' OH^C  ', 
» KRS ' 

1 9 

I « 

’ YSA2 ' 
» n-IN' 


• ZF ' 

• IZ  * 

'OMFT' 

• R W 
« ? 

' IHF* 
'?;!S  1 ' 
» V - 1 N » 


ZR' 
IXZ  ' 

CP' 

* 

KSC 
I WR* 
PH  S2 ' 
W-  T N ' 


» A * 

’ TP  • 

• PR  ’ 

t roT' 

' NG’ 

' ID' 
' CTSK' 
' X-TN’ 


P' 

CF' 
CRPR  ' 
AC 
LAFC 
AP  ’ 
* 

Y-IN  ' 


rr>p 

P 

KP 

A1 
L AFT 


Z -IN 


SBPG  oCQ 
SBPG  610 
SPPG  6">0 
SBPG  635 
5BPG  640 
SBPG  655 
SBPG  j6C 
SBPG  670 
SBPG  680 
SBPG  690 
SBPG  7G-: 
SBPG  710 
SBPG  720 
SBPG  730 
SBPG  740 
SBPG  7bC 
SBPG  760 
SBPG  770 
SBPG  7RC 
SBPG  79^ 
SBPG  800 
SBPG  810 
SBPG  82C 
SBPG  820 
SBPG  340 
SBPG  850 
SBPG  860 
SBPG  870 
SBPG  88C 
SBPG  e-n 
SBPG  900 
SBPG  910 
SBPG  920 
SBPG  93 C 
SBPG  940 
SBPG  950 
SBPG  960 
SBPG  9'’0 
SBPG  98C 
s s 9 n 9 90 
SBPG 1000 
SBPG 10  15 
SBPG 1020 
SBPG1G30 
SBPG  1040 
S B PC  1 0 30 
SBPG 1060 
SBPG  1070 
SBPG106C 
SBPG1090 
S8PG1 100 
SPPG1  no 
,SBPG1 120 
, SBPG1  I 30 
,SRFG1 14C 
,SBPG1 150 
,SBPG1 16C 
,SBPG 1 170 
,3RPG1 180 
,S3PG1 190 
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1 

•THIN 

• ,»PHIM 

• ,•  PSIN‘ 

, • DT' 

9 

1 XU* 

9 

• KT1*,* 

fs  02* 

• 

9 

KT3  • 

9 

' KT  , 

,SBPG1200 

1 

» RPS1 

• , • QPS2 

• , » RPS3» 

, »EPS4  • 

0 

' B1  • 

9 

• B2*,» 

3* 

f 

0 

B4  • 

0 

' D 1 D r 

,SBPG1210 

1 

* D2DT 

» ,'  D3.DT 

• , 'DELF* 

, »DELR* 

0 

•DELI* 

9 

• PHDT*, • 

PFIR* 

9 

0 

DFH1  • 

9 

* DFH2 

,SBPG1220 

1 

» U1PR 

• , » U2PR 

• ,*  UIPR* 

, *U4PR' 

9 

•3 1PR* 

9 

• S2PR' , • 

S3PR* 

9 

9 

S4PR  • 

0 

1 PPPT 

,SRPG1230 

1 

t 

t 1 
0 

• , • TQMX* 

,'  KTO* 

9 

• VC  • 

9 

•MTSH* , • 

DSVJM* 

9 

9 

■rsT* 

9 

• T^SLP 

,SBPG1240 

1 

•CGAM 

',•  C-: 

• f 1 

0 

• 1 

• 

9 

• PFL* 

0 

• T1 • , • 

rs  W* 

9 

0 

TSK  » 

9 

• TSWS 

,SPPG1250 

1 

» SW15 

0 

SBPG1 260 

1 

* PQSW 

• ,*  VTP.1 

» , » VHTP' 

, • AMCR* 

9 

• ESP  • 

9 

•KS  LI • , » 

KSL2* 

9 

9 

AA1  • 

9 

' AA  ' 

,5BPG1 270 

1 

• CCR 

• , «CFC'' 

*,*  AP« 

,’  BP1* 

9 

• EP2* 

9 

' ERP1*  , • 

EP8  2* 

0 

AML1  • 

9 

•AMI.  ’ 

,SB?G128C 

1 

• RRTH 

f • 
0 

« f 1 

0 

1 1 

0 

9 

9 

1 II 

0 

1 

f 

9 

0 

,SBPG1290 

1 

( 

1 < 
0 

It  f 

0 

1 f 

0 

9 

9 

1 ft 

0 

1 

9 

9 

0 

,S5PG1 390 

1 

t 

t f 
0 

« 1 « 
0 

I 1 

0 

9 

9 

1 1 I 

0 

S NT  ' 

9 

9 

SNSO* 

9 

• SNS1 

/SBPG 13 10 

DATA  NAMEX 

SBPG1 320 

1 

/•SNSH 

' ,*  DIS" 

• , • PL  • 

, 'TSCP* 

9 

9 

1 1 1 
0 

1 

• 

0 

• ? AS  • 

,SEPG1 130 

1 

• 

* , * SI1 

SI2* 

,*  SI3* 

9 

• SI4* 

9 

1 1 1 
0 

« 

9 

0 

SBPG1 140 

1 

t 

• I 
0 

t < « 

0 

, ' MTQB' 

0 

•DRSW* 

9 

• LDF*,’ 

LP’-F* 

9 

EK1  ’ 

0 

' EK2 

, SBPG 1 350 

1 

• BHPL 

* ,»  BMPS 

* , * BMPH* 

, • XB* 

9 

• A PF 1 • 

9 

* APP2» , * 

A!’P  1 • 

9 

APR2' 

9 

• MUS" 

,SBPG1 160 

1 

• nosR 

( t 

0 

t f 1 

0 

1 1 

0 

9 

9 

1 I 1 

0 

I 

9 

0 

,SBPG  19170 

1 

• 

< 1 
0 

t t I 

0 

, 'FEE1 ' 

9 

•FEE2* 

0 

•THF1 * , • 

TT;r,-2» 

t 

9 

,SBPG1 IRC 

1 

1 

f 1 
0 

If  I 

0 

1 1 

0 

9 

0 

1 1 1 
t 

i 1 1 

9 

H2* 

0 

1 

,S3PG1 190 

1 

• AKF1 

« , • AKF2 

* , • AKF3* 

, ' AKF4* 

9 

• DR1  • 

0 

' PR2'  ,• 

DPI’ 

9 

BR4  • 

9 

SBPG140C 

1 

• KCF 

»,•  KC7 

*,*  KSP* 

,*  ?31« 

0 

• FD2* 

0 

1 B 3 • , • 

54  * 

9 

AFKl  • 

0 

' A FK7 

,SBPG1 4 10 

1 

* AFKl 

• , ' ARK  1 

• , • APK2* 

, • ARK3* 

9 

•OFCO* 

9 

•OFCI* , ’ 

op:  2* 

9 

0 1 • 

0 

• ORC  / 

,SBPG142C 

1 

•OPC1 

' , 'ORC2 

' , • OPC3' 

, »CP0F' 

9 

•CP  IF  • 

9 

TP2F'  , • 

CPOS* 

9 

v'^^l 

9 

' C P2'  ' 

,SRPG141C 

1 

» CROF 

* ,*CR  I-" 

• , *CP2F’ 

, • CROP' 

9 

•CRIP* 

0 

•CP2R' , * 

1 

9 

9 

• BMP' 

,SBPG1.U4r 

1 

' TQBO 

» , • TQ  E 1 

1 I I 

0 

1 1 

* 

9 

9 

1 If 

0 

F^^C' 

1 

[iPC* 

0 

,SBPG1450 

1 

• AXLE 

• 1 
0 

II  1 

0 

,'ROT’  , 

1 

P 

A1 • , ’ RA2 

' , ’ R A 1 • 

, 'RA4 

1 

/ 

SEPG1 460 

EQUIVALENCE  (C7MPVR(1), 

AX  A VS) 

SBPG1 470 

DIMENSION  COMP7R(17) 

SBPG1 480 

DATA  RAD/0. 1745 

329  FI-  1/ 

SBPG1 490 

REAL*4  IOUT(48) 

,IN  ,ITHn 

, SCALAC  (28)  ,SCAI.DC  (48) 

SBPG 1500 

INTEGER* 2 RTSW  ,HBSW 

,LDTSW 

,CPEN 

,OPDN 

SBPG1 510 

FORMAT (» 

1 PARA 

METER  VALUES  - 

MODEL  C 

- ',20A4 

9 / 

* 

SBPG1 529 

1 

•(.  ,, 

5 (14,  3X 

1 A4,'=', 

G12.5,» 

9 

'))) 

SBPG  15  1C 

VHTP  COfIPAKISON  VATTAPLE  I NTT  I LI  Z ATTO  N 
DO  21  1=1,19 
CCRPVR  (I)  = 0. 

21  CONTTNIIE 

TSTFP  = DTJN 
NOfIBR  = 0 
DO  20  1=1,4 
DELX(I)  =0. 

20  C -NTINTTS 

TVHTP  = PRRA'^  (129)  + . S 

TOFM AX=- 1 . F20 
TQPK  AX=- 1 . E20 
A PI  = PAR  Ail  (0S5) 

' AP2  = PARA“1  (21  I) 

AP3  = PAPA'l  (214) 

AP4=PAHA?1  (2  IS) 

V AP5  = PARAf1  (21b) 

B/rC1=PAR  AM  (217) 

BTVM AX=- 1 .E20 

BTC2  = PAR AM  (21 

FEE1=PAPAM  (2r  ) *.0  17  4512  9 

FEF2  = PA8AH  (22F)  *.0  1745.129  ' — 

PSIMAX=-1 .E2C 

THF1=PARAM  ( 22 1 ) ♦ . 0 1 7 4512 9 

THE2  = PAR AM (22  2)  *.C  17  45129 

PSIM=PSIIN*RAD 


SBPG1 540 
5BPG1  5'^C 
SBPG1560 
FDPGT570. 
S PPG  1 5 80 
SPPG1590 
5PPG 1 600 
8BPG1610 
3BPG  1 6 20 
S BP G 16  . 10 
3PPG1  64f^ 
SBPG1 650 
SBPG1660 
SPPG1 670 
8 BPG1 680 
S P P G 1 o 9 0 
8?r>G17C^ 
S B PG 1 7 1 r 
8BPG  1 720 
SBPG  17  10 
8 PPG  1740 
8BPG1 75C 
SBPG 1 760 
5 BPOnT" 
S E ?G  1 7 1 9 
SBpr-1  7 If 
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XE^JD=TEND 

KXIT2  = 10.0*5280.0*12.0/3600.0 
TIME25=0. 0 
TinE10=0. 0 
Ol=-6.0E-6 
02=0.009 
03=0.0001 
E4=-0. 16 
F5=-0.46 
E6=10.4 
ANUnO=0.0 
ADENO=0.0 
BMAX=-1.E20 
PSI5=0.0 
DSWKAX=- 1 .E20 
PHIHAX=- 1 .E20 
ETABAX=-1 .E20 
DEL1DT=DEL1DN 
DEL2DT=OEL2DN 
DEL3DT=DEL3DN 
DEL1=0.0 
DEL2=0.0 
DEL3=DEL3IN 
PHiaD=PHIDN*RAD 
PHIP=PHIRN*FAD 
DELFH1=OFWlIN*RAn 
DELFW2=DEW2IN*P AD 
U1P=U1PIN 
U2P=U2PIN 
U3P=U3PIN 
U4P=U4PIN 
S1P=S1PIN 
S2P=S2PIN 
83P=S3PTN 
S4P=S4PTN 
Q[JAN  1 = 0.  0 
O'JAN  2=0.0 
QUAN3=0. 0 
QriAN4  = 0.  0 

F1^1=CF?*3IGN ( 1 . , DEL  IDT) 

F1F2=CFP*SIGN (1. ,DEL2DT) 

IF (DEL1.lt. OFC)  GO  TO . 1 
TF (DFL1.  GT.  OFT)  GO  TO ’ 2 
F2P1=AKF*DEL1 
G''*  TO  3 

1 F2F1=AKF*  (ALAFF*DEL1  - (ALA''F-  1.  ) *OFC) 

GO  TO  3 

2 F2F1=AKF*  ( AL  A KF*  DEL  1 - ( A L A « F-  1 . ) *0 ’*'T) 

3 IF (DEL2. LT.OFC) GO  TO  4 
IF (DEL2. GT. OFT) GO  TO  5 
F2F2=AKF*DRL2 

GO  TO  6 

4 F2F2=AKF*(ALAFF*DEL2-(ALANF-1 . 0) *CFC) 

GO  TO  6 

5 F2F2  = AKF*  (A LA F F* DE L2 - (A L AMF- 1 . ) *OFT) 

6 S1P  = -CF*CEI  1DT-F1F1-F2F1+  (RF*  (nFL2-DEI.1))  /TF*^2 
S2P=-CF*DEL2DT-F1F2-F2?2  - (B^*  ( PEL2-n»-’L  1)  ) /TF**2 
IF(  PAR  AM  (287)  , VO. 2.  ) GO  TO  106 

ZETA3  = TS*PHIB/2.  M)EL3 
ZETA  3D=TS*PHIPD/2.  4-DFT.3DT 


S PPG  1800 
SBPG181Q 
SBPG1 820 
SBPOiaiC 
SBPG184C 
SBPG  1.850 
SBPG1860 
SBPG 1870 
SBPG1 880 
SBPG1 890 
SBPG1900 
SBPG1910 
SBPG1 920 
SBPG1 930 
S3PG19U0 
5BPG1950 
SBPG1 960 
SBPG1 970 
53PG1980 
SBPG1 990 
SBPG200C 
SEPG2C10 
.SBPG20  2C 
SBPG2030 
SBPG2^4C 
SBPG2050 
SBPG206C 
SBPG2C70 
SBPG2080 
SBPG2090 
SPPG2100 
SBPG21 1C 
SBPG2  120 
S3PG2130 
SBPG214C 
SFiPG2150 
SBPG2  16C 
SBPG217C 
SBPG21 fiO 
SDPG2 190 
SPP32200 
SPPG22ir 
S PPG 2 2 20 
SBFG2230 
SMPG224' 
SPPG2250 
SBPG2260 
SBPG 2 2 70 
SRPG2280 
SPPG2290 
SBPG 2 300 
SBPG231C 
SPPG?35'' 
SBPG 2-3  30 
SBPG2  34C 
SBPG 2 150 
SBPG2360 
SBPG2  3 70 
G B^G  2 3 8C 
SRPG23‘3'‘- 
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ZETA4=-ZETA3+.:  ,*DEL1 
ZETAUD=-ZETA3I +2.*nEL3DT 
GO  TO  15 
106  ZETA3=DEL3 
ZETA4=DEL4 
ZETA3D=DEL3DT 
ZETA4D=DEL4DT 
15  CONTINUE 

IF  (Z FT A3.  IT. 0 EC)  GO  TO  7 
IF {ZETA3. GT.OPT) GO  TC  8 
F2R3=AKR*ZETA3 
GO  TO  9 

' 7 F2P,3=AKP*  (ALANR*ZETA3-  (ALAHR-1  .)  *ORC) 

GO  TO  9 

8 F2R3  = AKP*  (ALA^R^ZETA  3- ( ALAER-  1 .) *OPT) 

9 IF(ZETA4. LT.OFC) GO  TC  10 

{ZETA4  . GT.OET)  GO  TC  11 
F2P4  = AKR«'ZETAU 
GO  TO  12 

• 10  F2P4  = AKR<‘  {ALA^’3*ZETA4- (ALANP-I  .)  *OFC) 

GO  TO  12 

1 1 ?2R4  = AKR*  (ALA^^P*ZETA4-  ( ALA?!P-  1 .)  *0??) 

12  ’^1S3  = CPP=>SIGN  (1  . ,ZETA3n) 

F1R4=CRP*SIGN (1. ,ZFTA4D) 

IF(PAPA,'1  (287)  .EQ.2.)  GO  T'O  13 
S3P=~CP«ZFTA3I-F1P  3- F?P 3-PP*PHIP/TS 
S4P=“CR*ZETA4I--F1R4-  F2 P4 ♦ F R ♦ ?H  I F/TS 
GO  TO  14 

13  S3P  = -CP*ZETA3r-F1R  3-F2R  3 4-  (F  R/T  P ♦-S' 2 ) * ( D EL4 -DEI, 3 ) 
S4P=-CR*ZETA4r-'^1  F4-F2F4-  ( R R/TR**  2)  (DFL4-PEL  <) 

14  CONTINUE 
P=FIN*FAn 
po--=p 

0=QIN*PAD 

go=Q 

p = P T ^ J ♦ p J3 

RO=R 
U=UIN 
UO=U 
V = VIN 
VO=VIN 
W-KIN 
W(  =WIN 
X=XT  N 

xn  = x I"’ 

Y--  YIN 
y 0 = Y I N 
Z=ZT  N 
ZO=:ZTN 

THF-TEEIN  *?AO 
THFO^THE 
PHI---PHTTM«R.AD 
PHI<^  = PHI 
^SI=PSTI N+PAD 

p P T 0 - p c T 

I F ( P PF T.  N F . 0 , (■')  W RITE  ( 7,PT R , 9 6 0 } ( A T.  pH  { J ) , I = 1 , 2^  ) , ( { K , N ? i’  ( K ) , 
1 PARAN  (K)  ) , K-^1  , Ni) 

94C  FORM  AT  ( 1^(71  2.  V) 

TIKK-0.0  . . • ■ ■ , 

J JTI  ME  = 0 ■ . ■ . / „ 


SBPG24CC 
SBPG2410 
SBPG242C 
SBPG243E 
3BPG2440 
SBPG2450 
SBPG2460 
S3PG2470 
3BPG2480 
SBPG249C 
3BPG250C 
SBPG2510 
S ?:^G2  520 
SBPG253f 
S BPG25UC 
3BPG255^ 
SPPG256C 
SBPG257C 
S 3PG2  58C 
SRPG259C 
SBPG2o0r 
3BPG26 1C 
3BPG262C 
3 EPG26  3C 
33PG264C 
SBPG265F 
S SPG26 6'^ 
3PPG267C 
SFPG26SC 
S RPG269C 
SFPG27CF 
S FPG2  71 ^ 
5PFG2720 
S3r-G2  7 3C 
33PG274C 
3BPG273R 
3PPG276" 
SDPG2  7 7C 
SBPG278C 
33FG2790 
SDPG28C0 
3BFG2B10 
FF.PG2  R2C 
3 3T^G2  8 30 
GBP  G2B40 
3BPv;2R5C 
33PG286^ 
GBPG2870 
S3PG28BC 
3 B PG  2 BPO 
.S’PPG290C 
SBPG2B1C 
3 P^G2  92  ' 
?n?{;29  3C 
SBPG29UC 
S PPG?  RFC 

3BPG2'^7F 
3F'’'G2  9pr 
r-  p n Q r 
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DT=0. 0 

998  F0RHAT(*0*,8EVj.6) 

IHSW=0 

XB  (1)=PARAH  (201) 

NBHP=PABAM  (277)  4-0.5 
IF  (NBMP.LT,  2)  GO  TO  4321 
DO  5432  I=2,NPMP 
XB(I) =XB (1-1)  ♦ PA  RAM  (199) 

5432  CONTINOF 
4321  CONTXNDE 

CALL  SBPG22 

CALL  LBDAFP  (0C,47, DACO,ILPFRB) 
CALL  TLDA 
DO  6240  1=1,48 
ITMP  (I)  = DACO  (I) 

6240  CONTTNDE 

CALL  STCO  (1 ,ISTCOE) 

DT=DTIN 

ISH1=0 

ISW7=0 

RETOBN 

END 


SBPG3C00 
S8PG3010 
SBPG3020 
SEPG3C30 
SBPG3040 
SBPG305G 
S3PG306C 
SBPGl07r 
SDPG3080 
SBPG3090 
S3PG310C 
SBPG3nO 
S8PG312C 
SBPG3130 
SSPG3  140 
FBPG3150 
S8PG3160 
SBPG3170 
SBPG3180 
SBPG319'' 
SBPG320C 
SBPG321C 
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BCE-T-0530 


2.1.3  POTSET 

PRESENTED  HERE  IS  THE  FORTRAN  LISTING  FOR  THE  POTEN- 
TIOMETER SETTING  CALCULATION  SUBPROGRAM.  THE  FOLLOW- 
ING IS  PERFORMED  IN  POTSET: 

1)  Calculation  of  parameters  used  in  the  poten- 
tiometer equations. 

2)  Calculation  of  potentiometer  settings. 

3)  Calculation  of  analog-to-digital  converter 
scale  f hectors. 
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SUBPOUTINK  POT3ET 
SOBROUTINF  POTSET 

THIS  SUBPCOTINE  CALCULATES  VALUES  FOR  POTENTIOM PT PR  SETTINGS 
COnnON/DEVICE/KEYBD,  ITTY  ,-ICDRD  , LPTP 
CO«MON/HHHH/H1,H2,  H3 ,H4 

COnnON/SPLTAX/SPSR3,CPSP3 ,SPSR4,CPS?4, SCR  3 , SCP U ,T BC” 3 , TBC R4 , T BS ? 3 
1 TESF4,TRSR3,TSSR4 ,TRCR 3 , TRC R4 , PS R 3 , PSR 4 , lAX 
COMHOS/CLEAN/0>JEOA,ONEOD 

COMRON/VARS/P ,Q^R,0, V,W,X ,Y,Z,THE,PHI, PSr,PO,0O,RO,UO^VO,WO,XO, 

^ YO,ZO,THEO,PHIO, PSIO 

corron/Ztlch/tqhaxp, aktop 

COMHON/INOOT/INA  (3  2)  , TOUT  A (48)  ,IN  (32)  ,PACO  (48)  , I S H 1 ^ T S W7  , S FT  N ( 32) 
1 SFOOT  (48)  ,IPRT,  ITP1P(48) 

COnnON/EFFS/ANUW,ADEN,ANUMDT, ADENDT, ANURO , ADENC, ANURDO , ADENDO , 

1 ANOUT^ADOUT 

COM«ON/CORBLK/ATXP,SM^AIYP,  AIXZP,GAM  1,  GA.R2,GAR  3 , ATXBK  , AIYDR, 

1 AIZBS  , A1  , A2  , AIXZ  BR  , A 1 2 , E 1 , E2  , E3  , DELTA  , GV  1 , G /2  , P 1 , GP'2  , GP  1 , 

1 GB2,CIP,CI7P, SZF ,RZR, A2T,CA20 ,CA  23, 

1 ,TR02,TF02,TS02,G,THRD,TWN7 

COfinCN/TIMBLK/JJTIWF,TTMF,  OT 
CORMON/UVW/VC, UTN 

COaHON/SP75LK/N1,N2,  IPOT(120)  ,IPOTAD  (120)  ,PAPAR  (4'^G) 

EQUIVALENCE 


ANGNL, ANGNLO 


1 

(PARAR  ( 1)  , ARS) 

, (PARAR  ( 2) 

, AR(fF) 

0 

(PAPAR(  3) 

, A R n R ) 

1 

(PARAR  ( 4)  ,ZF) 

, (PARAR  ( 5) 

,ZH) 

0 

( P A / A R ( u) 

, A) 

1 

(PAPAM(  7) ,3) 

, (PARAM(  8) 

,TF) 

0 

(PA'AMf  9) 

,TD) 

1 

(PARAR  (10)  ,TS) 

, (PARAR  (11) 

,AIX) 

0 

(P  A.-A'^  (12) 

,AIY) 

1 

(PARAR  (13)  ,MZ) 

, (PARAR  (14) 

, A IXZ) 

0 

( P A 0 A R { 1 5 ) 

, AIF.) 

1 

(PA^AR  (16)  ,SF) 

, ( P A R A H ( 1 7 ) 

,RF) 

0 

(PA  AR(1B) 

,CFP) 

1 

(PARAR  (19)  , \KF) 

, (PARAR  (20/) 

, ALARF) 

0 

{PAPA'!  (21  j 

,O^C) 

1 

(PARAR  (22)  ,OFT) 

, (PAPAR(23) 

,C?) 

9 

(PA  «AR  (24) 

,FR) 

1 

(PARAR  (25)  ,CRP) 

, (PARAR  (26) 

,AKP) 

0 

(PAR.AR  (27) 

, ALA'LL?) 

1 

(PARAR (28) ,ORC) 

, (PARA.R(29) 

,ORT) 

0 

{PAi^AR  (3C) 

,AKPS) 

1 

(PARAR (31) ,RW) 

0 

( - A 7 A M ( 3 9 ) 

,OT) 

1 

(PARAR  (34)  ,CA0) 

, (PAPAR  (36) 

,CA  1) 

0 

(PA  "•\R  ( 36) 

,CA2) 

1 

(PAPAR  (37)  3) 

, JPAPAR(38) 

,CA4) 

0 

(PARA'^  (39) 

, A^SW) 

1 

(PARAR (44) , AKDL) 

, 'fPAR  AR  (41  ) 

,AKSC) 

0 

(PARAR(42) 

,AN(3) 

1 

(PAPAR  (43)  ,WG) 

, (PARAR  (40) 

, A N L 2) 

0 

{ D A D A R ( 4 6 ) 

, .AKSL) 

EQUIVALENCE 

1 

(P.ARAR  (46)  , ANL1) 

, (P.AP.AR  (47) 

, AIFW) 

0 

( D A R A R ( 4 8 ) 

,HPL) 

1 

(PAPAH  (49)  ,A  IWF) 

, (PARAR  (50) 

,ATWR) 

0 

(DA  RAM  (51) 

,AID) 

1 

(PARAR  (52)  , APDR) 

, (PARAR  (53) 

, EPS  1) 

0 

(?f  RA.  R (54) 

,EPS2) 

1 

(PARAR  (55)  , PTBP) 

, (PARAR  (56) 

,YSA  1) 

i 

( P.^  : AR  (57) 

,YSA2) 

1 

(PARAR  (5  8)  ,YMS1 ) 

, (PAPAR  (69) 

,YiiS2) 

0 

( D A -A  M ( 6 0 ) 

, A?;r) 

1 

(PARA  R (6  1)  /rODBR) 

, (PAPAR  (62) 

, AO) 

0 

(DAB  AM  (6  3) 

,PIN) 

1 

(PARAR  (64)  ,QIN) 

, (PAPAR(6S) 

,RIN) 

0 

(P.A^A  M (66) 

,ur-7) 

1 

(PARAR  (67)  , VIN) 

, (DAPAR  (68) 

.WIN) 

0 

( D A:;AR  (69) 

,yiN) 

1 

(PARA  R (70)  ,YTN) 

, (?ARAR(71) 

, ZIN) 

0 

(P  .''.  ’/A  V (72) 

,TH^TN) 

1 

(PARAR  (73)  ,PHIIN) 

, (PARAR  (74) 

, PS  TIN) 

0 

(P  A 7 A M (76) 

,DTI':) 

1 

(PARAR  (76)  ,TEND) 

, (PARAR  (7  7) 

, A :<  T 1 ) 

9 

(PA.-AR  (78) 

,AKT.:) 

1 

(PARAR  (79)  ^ .AKT3) 

, (PAPAR  (BO) 

, AKT4) 

0 

{P  ARAR.(81) 

, RPSl) 

1 

(PARAR  (82)  PS2) 

, (P,ARAR(3  3) 

, RPS3) 

0 

' Ar-’A  1(84) 

,RP34) 

1 

(PARAR  (85)  , B1) 

, , (PARAR  (86) 

/P-2) 

( p a:<ar  (B7) 

,33) 

EQUIVALENCE 

1 

(PARAR(,a8)  ,30)  , 

(PAP  AR  ( 8 9)  , Dry, 

N) 

, (P^  ■■A.R  ( /90)  , 0--’L2n 

1 

(PARAR  ( 9 1)  , OEL3DN  ) , 

(PARAR  ( 92)  , 

r-^L^"  IN) 

0 

(T'BRAR{  9 3) 

,PEI.PIN 

1 

(PAP. AM  ( 94)  , DEL3TN) 

, (PARAR ( 96) , PHIDN) , 

( D A AR  (96  ) 

,r8';pN) 

1 (PARAR  ( 97)  ,DFW1IN) 

1 (PARAR  (100)  ,n2PTN)  , 


(PAR AR  ( 98) 
(PAPAR  ( 10  1) 


0“ W2IN) 
n3PI?0  / 


/ (PA 
( A 


' A R ( 0 9) 
AR(10  2) 


niPIM) 

U4PIN) 


POTS 
POTS 
POTS 
POTS 
POTS 
, POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
,POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
DOTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
POTS 
P'^TS 
POTS 
POTS 


1C 

20 

30 

40 

BO 

60 

70 

80 

90 

100 

lie 

120 

1 3 0 
140 
150 
160 
170 
130 
190 

20G 

210 

220 

2 3': 
2U0 
250 
2.6  0 
27G 
280 
290 

3 00 
310 
320 
33C 
340 
350 
36  C 
370 
380 
390 
400 

4K 

420 

4 30 
440 
460 
460 
470 
480 

4 90 

61^ 

52  0 

53  0 
64  0 
650 
56^' 

580 

5 90 
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1 (PARArf  (103)  , S1PIN)  , (PAPA«  (104)  ,S2PIN)  , ( P A : \ ( 1 0 5 ) , S 3PTfn 
1 (PARAM  (106) , S4PIN) , (P A? AM  ( 107 ) ,PPRT) 

1,  (PARAM(IIO)  ,TJMAX) , (PAPAR(III)  ,AKTO)  , (PARAM(1 12)  ,VCIN) 

1,  (PARAH(113)  ,SWHT)  , (PAPAM  (114)  /DSWCM)  , (PA  RAM (1 15)  ,TnT)  , 

1 (PAS  AH  (11  6)  ,D3LP)  , (P  ARAM  (117)  ,Cr,AM)  , (PAPA  M (118)  ,CS) 

1 » (PARAM  (110),  TQRBP.)  , (PA RAM  (120)  .TQFBR) 

1 , (PARAM  (121)  ,PFL)  , (PAP AM  (122) ,TTD)  , ( PAP  A M ( 1 2 3)  , DSW) 

1 » (PAHAM(124)  ,TSW) 

EQUIVALENCE 

1 (PARAM  (13C)  , AMCR) , (PAR AM ( 131)  , ESP)  , (PARAM (132)  , AKSL 1)  , 

1 (PARAM  (13  3)  , AKSL2)  , ( P A R AM  ( 1 3 4)  , AA  1 ) , (PARAM(1  3'5)  ,AA2)  , 

1 (PAPAM ( 136)  ,^CR) , (PARAM  (137)  ,CPCR)  , ( PA R A M (1 3 R) , AP)  , 

1 (PARAM (139)  ,EP1)  , (PARAM  (140)  ,EP2)  , (PARAM (141)  ,ERR1)  , 

1 (PARAM  (142)  ,ERP2)  , 

1 (PARAM  ( 143)  , AML1)  , (PAR  AM  ( 1 44)  , AHL2)  , (PARAM  (1  4:i)  ,RPI  M)  , 

1 (PAPAM  (146)  ,RWR) 

1 , (PARAM  (196)  ,EPSK  1)  , (PARAM  (197) , EPSK2) 

EQUIVALENCE 

1 (PARAH  (223)  , CP  1C)  , (PAPAM (2  24) ,CR IT)  , (PARAM (225) ,CR2C)  , 

1 (PARAM  (226)  ,CB2T)  , (PA R A M ( 2 27)  , CR 3 C)  , (PARAM (2  23)  3T)  , 

1 (PARAM (229)  ,CR4C)  , (PARAM  ( 2 30 ) , CR4T)  , (P A R AH  ( 2 <1 ) , AH  1 ) , 

1 (PARAM  (2  32)  , AH2)  , (PARA”  (233)  , ANL)  , (PARAM  (23  4)  , AK*^  1)  , 

1 (PARAM  (235)  ,AKF2) , (PARAM  (236)  ,AKR3)  , (PARAM(237)  ,AKR4) 
EQUIVALENCE 

1 (PARAM  (2  84)  , HFC)  , (PAR  AM  (285)  ,HRC) 

EQUIVALENCE 

1 (PARAM  (290)  ,ROT)  , ( PAR  AM (29 1 ) , R AO) , (PARAM (292)  ,RA1)  , 

1 (PARAM  (293)  , RA2)  , (F A R AM  ( 29 4 ) , R A 3)  , ( PA ? A M ( 29  5)  , RA 4) 

EQUIVALENCE 

1 (PARAM  (29  6)  ,DFL1DT)  , (PARAM (297)  ,0EL2nT)  , (PARAM  (298)  ,DEL3DT)  , 

1 (PAPAM  (2 '9  9)  , DELI ),  (PARAM  ( 30  0)  ,DEL2)  , (PA^A  M (30  1 ) , DEL  3)  , 

1 (PARAM(302)  ,PHIRD)  , (PARAM  (303)  ,PHIR)  , (PARAM  (304)  ,nELFW1)  , 

1 (PAPAM  (3  0 5)  ,DELFW2)  , (PA  R A M ( 30  6)  , U 1 P)  , ( PAR  AM  ( 3 F 7)  , U2P)  , 

1 (PARA.M(308)  ,U3P)  , (PARAM(  309)  ,TI4P)  , (PAFAM(31G)  , SIP)  , 

1 (PAR  AM  (3  1 1)  ,S2P)  , ( PARAM  ( 312)  ,S  3P)  , (P  AP  AM  { 3 1 3)  , S4P)  , 

1 (PARAM  (3  14)  ,OUAN  1)  ,(  PARAM  (3  IS)  ,QUAN2)  , (PA  r A"*  (3  16)  ,QUA  N 3)  , 

1 (PAR  AM  (3  1 7)  ,QU  \NU)  , ( P AR  A MJ  3 J8 ) , AS  PS  1 ) , (PARA'’  (3  1 9)  , AS  PS  2)  , 

1 (PARAM  (320)  ,WS^H1)  , (PARAM  (321)  /WCTH1)  , (PARAM  (32?)  ,WSTH2)  , 

1 (PARAM  (32  3)  ,WC-^H2)  ,(  PAPAM  (324)  ,IOMT(  1)  ) 

REAL*4  IOUT(48) 

DATA  T/1000G.0/ 

C N1  , N2  EQUATED  TO  THFIR  VALUES  IN  MAIN 

I AX=P  ARAM  (287)  ♦•0.5 
PSP  3 =PAR AM (288) ♦ .0  17  45  13 
PSP4  = PARA H (28  9)  *. 0 17 45  33 
SP3P3=  (TAN (2. C*  HFC/TF) ) ♦P. 0/AMUF 
S PSP  4=  (TAN  (2 . 0* HFC /TP) ) *2. O/AMUR 
CPSR3  = COS  (PSP  3) 

CPSP.4  = C0S  (PSPU) 

SCR3  = SPSR3>fC?Sa  3 
SCR4  = SPSP4*CP  SR4 
TMP=2. 0*R/TS 
TPSR3  = Tf1P*SPSR3 
TBSP4=TMP*SPSR4 
T8CR3=TMP*CFSr 3 

TBCR  4 = TMP^CFS  F4  ; •.  ‘ 

TMP  = TR/TS  ■ ■ 

TRSP 3=TMP^SPS5 3 
TRSP4  = TMP’«'SP3R4 
TRCP 3^TMP*CPSf 3 ■ 


POTS  600 
POTS  610 
POTS  620 
POTS  630 
POTS  640 
POTS  650 
POTS  660 
POTS  670 
POTS  680 
POTS  690 
POTS  700 
POTS  710 
POTS  720 
POTS  730 
POTS  740 
POTS  750 
POTS  760 
POTS  770 
POTS  780 
POTS  79C 
POTS  800 
POTS  81^ 
POTS  82C 
POTS  830 
POTS  84C 
POTS  850 
POTS  860 
POTS  870 
POTS  880 
POTS  890 
POTS  900 
POTS  910 
POTS  920 
POTS  930 
POTS  94C 

rcrs  950  ' 

POTS  960  ' 

POTS  970  ■ 

POTS  980  ! 

POTS  990 
POTS  1000  ! 

POTS1010  I 
POTS1020  I 
POTS  1030 
POTS1040 
POTS105C  ’ 
POTS1060 
POTS  1070 
POTS  10 8C 
POTS109C  ‘ 
POTS  HOC 
POTS1110  I 
POTS  1120  I 
POTS  11 30  ! 

POTS  11 40  : 

POTSH5''  i 
POTS116C  ; 
POT5117C  f 
POTS  1180  I 
POTS  1190 
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TRCR4=TnP*CPSE'+ 

Sa  = AMS  + Ar10P  + APi'JR 

UIN=UIZ*  1 2.  0*52B0.  0/3600,0.. 

VC=VCIN*1 2. 0* 5280. 0/3600. 0 
ISH7=1 

rPRT=PARAH  (108) >0. 5 
TW03  = 2, 0/3.0 
H0N=0.01 
TOO=0. 001 
TTO=0.0001 
G=386.4 
THRD=1 .0/3,0 
TWN7=1. 0/27.0 

H1=RH-  (AMUF  + B^\«S/  (A^B)  ) *0/(2.  *AKT1) 
H2=FW-  (AMDF>B*AHS/(A+B)  ) *G/(2.*AKT2) 
H3=KW-  (AMUR4-A*  AfiS/  (A^B)  ) *G/  (2.  *AKT3) 
H4=R»-  (AP!UR  + A*AMS/  (A+B)  ) ♦G/(2.  *AKT4) 
ZI?I=  (B*  (H  UZF)  ♦A*  (H3+ZR)  ) /(A«-B)*  (-1.  ) 
THEIN= (H1-R3+ZP-ZR)/  (A  + B) *57. 29578 
AIBR=AIWR+AID«ARBR**2*0. 25 
AIBRP=AIBR- AIVR 
T00=0.0 
RPSl=0rM/H1 
RPS2=UIN/H2 
' RPS3=UIN/H3 
RPS4=UIN/H4 
TFO2=TF*0,5 
T SO 2=T S/2.0 
TR02=TRP0.5 

AIXP=AHUF*ZF*ZF+Af1UR'<‘ZR*ZR 

AIYP=AIXP 

ATZP=Af1UP*  (A*?>TF02**2)  ♦AnUR«B*n  ♦ AIR 
TF(TAX.EO.I)  GO  TO  3 C 
AIZP=AIZP+An0R*TRO2*^2  - AIR 
30  AIXZP=A«UF’^  A*7F-AMUR*B*ZR 
GAH1=AH0F*A-AM0R'>B 
GAM2  = AH0P*ZF4' AMUR*ZR 
GAM3-GAM2 
AIXBR=ATX+AIXr 
AIYBR=ATY4-AIY  T 
AIZBP  = AIZP  4-AJZ 
A1=GAM2/Sa 
A2=AIYBH/GAM2 
AlXi  BR  = AIXZP«-AIXZ 
CA23  = CA2*CA  3 
A 12=A1-A2 

E V=^AIXBR*AIZBP-  AIXZBP»‘«2 
E2=GAPn-^AIXZBF-GAM3*  AIZBR 
E3=GAM  3^  AIXZ3?-GAfn«AIXBR 
T)ELTA=E1'9'Sf^  + GA^l2*E2♦■GAM1*E3 
GV1  = GA.12*AI2BF-GAn  ATX.ZBR 
GV2  = GA?!2«AIX2FR-GAM1*.AIXBP 
GP1  = Sf1*AlZBR-G.AM 
GP2  = SM*AIXZBR-G.AM1  *GA!13 
GR1=GP2 

GR2=SH«A  IXRP-CA,“12*GA  M3 
CTP  = B*AMS*G/.{  AMUF*  (A>D)  ) +G 
TQHAXP=T^MAX*AR^R*0. 5 
AKTOP^AKTC+ARPR’^'O.  5 
CIVP  = A*AMS*G/  (AMTJF*  (A  + B)  ) +G 


POTS120C 
POTS1210 
POTS  1220 
POTS1230 
POTS  1240 
POTS  1250 
POTS1260 
POT51270 
POTS1280 
POTS1290 
POTS1 300 
POTS1 310 
POTS  1 320 
POTS1330 
POTS1 34C 
POTS1350 
POTS  1 360 
POTS1 370 
POTS1 380 
POTS  1390 
POTS  1400 
POTS1410 
POTS  1420 
POTS1430 
POTS1440 
POTS1 450 
POTS1460 
POTS1 47C 
POTS  1480 
POTS  1490 
POTS  1 500 
POTS1510 
POTS  1520 
POTS  1530 
POTS1540 
POTS  1550 
POTS 156C 
POTS1 570 
POTS  1580 
POTS  1590 
POTS  1600 
POTS1610 
POTS  16  20 
POTS1630 
POTS1 640 
POTS1650 
POTS  1 660 
POTS  16 7C 
POT.SI  680 
POTS  1 690 
POTS170^ 
POTS17  1':' 
POT SI  72  0 
POTS  1 7 30 
POTS  1740 
?OTSl75r 
POTS  1 76'' 
POTS  1 7 70 
POTS  1780 
POTS  1790 


135 


PZF=RH+ZF 

FZR=RH+ZR 

A2T=  0T*CA2 

CA20=CR0*CA2 

0NE0A=1. 0/A12 

0NE0D=1. 0/DELTA 

IPOT(01  ) =T«PARAM  (175)/AHS 

I POT  (02  ) = (2.  C/(10.0*AnUP)  ) ♦T*PAR  AM  ( 17  5) 

TPOT(04  ) =(HUN*RP/ (TF^TFJ  ) *T*0.  1 
IPOT  (03  ) =IPOT  (OU  ) 

I POT  (05)  = (2.0*AKT2/(5000. 0*AMOF) ) »T/ 1 . 0*P ARAM ( 1 "5) 
IPOT  (06  ) =T*PARAM  (175)/AHS 
IPOT  (07  ) =IPOT  (02  ) 

IPOT  (14)  =RF/(TF*TF*1 CO.O) *T*0.  1 

IPOT  (10  ) = (AKT3/(5000,C<‘AFUR)  ) *T*PARAM  (175) 

IPOT  (1  1 ) = (AKT4/  (5  00C.C*AMUR) ) ♦T^PARAM ( 17  5) 

IPOT  (12  ) =T4'PARAM  (175)/AMS 
IPOT  (13  ) = (0.  1/AMUR)  *T*PAE?  AM  (175) 

I"»OT  (09  ) =IPOT  (13  ) 

IPOT  (08) =RF/(T?*TF»1 00, 0)  ♦!  *0.1 
IPOT  (16  ) =TOU'^CFP*T 
I?0T(19  ) =.  1»T')U*2. 0*CFP«T 
IPOT  (21)=PARAM(175)*T 
IPOT  (22  ) =IP01  (16  ) 

IPOT  (24  ) =IPO'^  (1P  ) 

IPOT  (25)  = PAR  AM  (175)  *T 
IPOT  (27  ) =TOrji‘CRP*T 
IPOT (28) =PARAF  (175) *1 
IPOT  (29  ) =.  1*'^OU*2.0  ♦CRP’>T 
IPOT  (31)  =PARAF (175) ♦ T 

IPOT  (32)=  (2.0*AFT1/(5PC0.'^*AMUF))  ♦T/1.C*P,\RAM  (1  75) 
IPOT  (3  3)  =PARAM  (175)  *T 
IPOT  (49  ) =IPOT (27  ) 

IPOT  (51  ) = (60.0*AKT1/(1000C.C^AIWF)  ) ♦T*PARAM(1 7 5) 
IPOT  (52  ) = (4. ^/A  TWF)  *T»PARA  M (2  38)  *PAFAM (1 75) 

IPOT  (54  )=IPO'”(29  ) 

IPOT  (60)  =(AKF/1000. ) *T 

IPOV^ei)  = (AK’^/1000.  ) ♦T 
TPOT{62)  ={  AKF/10C0,  ) *T 
IPOT (63)  = (AK h/lCOO. ) *T 

IPOT  (8  3 ) =(60 .0*AKT4  / (1 OCOO .0* AIBR) ) *T * P A F AM  ( 1 75) 

IPOT  (086) =0.2r00*T 

IPOT  (87  ) =0. 1 33  3»T 

IPOT  (88  ) = (RW/15.0)  *T 

IPOT (9  2)  =57,  3/20  0. ♦T^PAFAM (175) 

IPOT  (C96)  =C.2f 
IPOT  (97)  =IPOT  (92) 

IPOT  (98  ) =XFOT (08  ) 

TPOT  (99  ) =TPO'"  (87  ) 

IPOT  (ICO)  =2.*IPOT(92)  : 

IPOT  (101)  =HU5"'''R?r.1 

IPOT  (102)  = (60  - 0*AKT2  / ( 1009^,  C*  ’'TW’=’)  ) ♦T*PA  RAM  ( 1 75) 
TPOT  (103)  = (4.  ^/AIWF)  *T*PA'^A.M  (2  3Q)  ♦PAPAM(175) 

IPOT  { 104)  =HU\”<^RPS2*T 
IPOT  (105)  =2.* 'POT (97) 

TPOT (106)  =0.2*T 
IPOT  (107)  =T POT  (8 7 ) 

IPOT  (1 08)  =IPO^ (38  ) 

TPOT  (1 10)  =nUN^ FP33*T  ' ' 

IPOT  (1  1 1 ) = (4.  I'/MRF)  ‘•'T^P  A;<AM  ( 2 4 1)  * P A R A M ( 1 7 *'•) 


POTS1 ecc 

roTSiblO 
POTS ^ 820 
POTS) 830 
POTS  '40 
poTsiasc 
PCI? I960 
POTS  0 TO 
POTS188C 
POT Si 89C 
POTS  t 9C0 
POTS19 10 
POTS1 920 
POTS1 93C 
POTS  19  40 
POTS195C 
POTS196C 
POTS  1970 
POT31 9SC 
POTS  1990 
FOTS20C0 
POT520  )C 
POTS2C20 
POTS203O 
POTS204C 
FOTS205G 
POT?20Ji0 
POT32C7C 
POT3208C 
POTS  2 0 90 
POTS?  100 
PGTS21 to 
POTS2120 
POTS 2 130 
10152140 
POTS? 1 5C 
POT5216C 
»OTS2 17C 
POTS  21 80 
POTS 2 i9C 
POTS2200 
POTS2210 
POT32220 
POTS2210 
POTS2240 
PGTS225C 
POTS  2 260 
PCTS2270 
POTS2280 
POTS2290 
POTS2300 
POTS2  310 
POTS  2 320 
POTS 2 3 3C 
POTS2340 
POTS  2 3 50 
POTS2  360 
POT S2 3 70 
POTS2  IPO 
POT32390 
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" IPOT  (112)=  (4.  0/AinR)  ♦T.*FAPAn  (240)  ♦PA’RAH  (1  75) 

I POT  (1 13)  = (60.  ''*AKT3/(100C0.0*A1BP)  )’ *T  ♦ PA  P AM  ('1  75) 
TPOT (1 14) =HUN»PPS4*T 
IPOT  (116) =IPOT  (106) 

IPOT  (117)  =IPOT  (B7  ) 

TPOT  (118) =IPOT (88  ) 

IPOT  (1  1<^)  =AIBFP/AIBR*T*PAEAM  (175) 

IPOT  (50  )=IP0T(110) 

CALL  SSP,  P (08,IRLERR) 

IF(RP.GE.O)  GO  TO  1023 
CALL  SSFPl  (08  , IRLERR) 

1023  CONTINUE 

r IF  (lAX.EQ.  2)  GC  TO  1021 

C###t#  SOLID  AXLE  LOGIC  FOR  680  ##### 

C»*t«» ««»*## »«#««#»«»##»«»#»#*«»»«»«#»» #««##« 

CALL  SSRP(00, IRLFRR) 

CALL  SSPP  (01 , IPLEPP) 

CALL  SSRP (02, IRLEHR) 

CALL  SSPP(0 3, IPLERR) 

CALL  SSPP  (07,  IPLFRP) 

CALL  SSPP  (10 , IRLFPR) 

CALL  RS:L ( 01  ,IPSCLE  ) 

IPOT  (15  ) = (10 . 0 + TS/AIR) *T*PAPAM (175) 

IPOT(17  ) =0.4C*T«PAE AM  (175) 

IPOT  (26)  = (APS  (PP) / (4  000. *TS) ) *T*0.  1 

IPOT  (36  ) = (TSO2/40 .0) *T 

IPOT  (40)  =0 

TPOT  (41)  =0 

IPOT  (42  ) =0 

IPOT  (45  ) =IPOT  (36  ) 

IPOT  (46  ) =(HIJN’«‘TS0  2*T) 

IPOT  (35  ) =TPOT  (46  ) 

IPOT  (53  ) =IPOT  (26  ) 

IPOT(71)  =0 
TPOT  (80  ) =0 
IPOT  (81  ) =0 
IPOT  (82  ) ^0 

IPOT  (109)  = (TR 02/40  .n ) «T 
IPOT  (115)  =IPOT { 1 0^) 

GO  TO  1C  2 2 
10;>1  CONTINUE 

########## 

SPLIT  AX  I'-  LOGIC  FOP  6 8C 

######  it###  If#  ######!» 


CALL  SSPM  (00,  IRLERP) 

CALL  SSPM  (01 , IRLERP) 

CALL  SSRN  (0  2, ISLERR) 

CALL  SSRN  (0  3,  IRLERR) 

CALL  SSKM (07 , I^lePR)  ’ 

CALL  SSR".  (10,  IRLFER) 

CALL  S3CL  ( 01  ,ISSCLE  ) 

I POT  (4  1)  =2. 0/  ( 1 : .C  *A  MUR)  *T*PAR  AE (17  3) 

IPOT  (40)  =AKT3*2 . 0/ (5  COC  ,0*AMUR)  75) 

TPOT  (42  ) =T*PAR?M  (175) /AES 
IPOT  (71)  = (PR/  ( 100  . ♦TR>#«2)  ) ^T 

IPOT  (80  ) =AKTU  + 2.0/{5O00.0<'AMUR)#=T*PA?AM(175) 
IPOT  (81  ) =2.0/ (1C.0*AEUE)  »T*PARAM  (175) 

IPOT  (82  ) =T*PARAM  (175)/AMS 
IPOT  (36  ) =0 


POTS240C 
POTS2410 
POTS2420 
POTS2430 
POTS2440 
POTS2450 
POTS2460 
POTS2470 
POTS2U80 
P0TS2490 
POTS250r 
POTS2510 
POTS2520 
POTS2530 
POTS2540 
POTS255C 
POTS2560 
POTS2570 
POTS7580 
POTS259C 
POTS2600 
POTS2610 
POTS262C 
POTS2630 
POTS264C 
POT52650 
POTS26&0 
POTS2670 
POTS2680 
POTS269C 
PCTS2700 
POTS27 1C 
POTS2720 
POTS2730 
POTS274C 
POTS2750 
POTS2760 
PCTS277C 
POTS278C 
POTS279Q 
POTS28CC 
POTS281C 
POTS282P 
POTS2B3C 
POTS2840 
POTS2850 
POTS2860 
PCTS2870 
POTS2880 
POTS2890 
POTS290C 
POTS29 10 
POTS292C 
POTS  29 30 

POTS2940 

POTS2  950 
POTS2960 
POTS2  97  '■ 
pnTS298C 
PCTS2  99C 
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J022 


10 


IPOT  (46  ) =0 

POTS300C 

IPOT  (109) =0 

POTS3010 

IPOT  (1  15)  =0 

POTS3020 

IPOT  (45  ) =0 

POTS3030 

IPOT  (35  ) =0 

■■  • 

?OTS30aC 

IPOT  (26  ) =0 

• 

P'^rsj060 

IPOT  (53  ) =0 

POTS306C 

IPOT  (17  ) =0 

POT'’.3070 

IPOT  (15  ) =0 

POTS3O80 

CONTINUE 

POTS  3090 

CALL  ssan  (11,  IBLE8R) 

POTS 3 100 

IPOT  (55) =.500C*T 

POTS3110 

IPOT  (56) =.500C*T 

POT3312C 

IPOT  (58) =.5000*T 

POTS3 1 30 

IPOT  (72)  =.500C*T 

PCT33140 

SPIN  (1) =-  100. 0 

POTS315C 

SPIN  (2)=SFIN(1) 

' 

POT33  160 

SPIN  (3)  =SFIN  (1) 

POTSJ1 70 

SPIN  (4) =10.0 

PCTSJIBf' 

SPIN  (5)=SFIN(U) 

POTS3  190 

SPIN  (6)  = SFIN  (4) 

^CTS320P 

SPIN  (7) =1 .0 

POTS3210 

SPIN  (3) =0.25 

POTS  1220 

IF(IAX.EQ.2) 5FTN  (7) =SFIN  (1) 

PPTS32 JO 

IF(IAX.EQ.2)  SPIN  (8)  = SFIN  (4) 

POTS324G 

SPIN  (9)  =0.5 

POTS  3 250 

SPIN  (10)  =SFIN  (9) 

POTS  3 260 

SPIN (11) =2.0 

POTS3270 

SPIN  (12)  = SPIN  (1 1) 

f>OT5  3 2 30 

SPIN  (13)  = SFIN  (1  1) 

POTS 3 29  ' 

SPIN  (14) =SFIN  (11) 

POTS  3 300 

ST^’IN  (15)  = 1000 . 0 

POTS3110 

SPIN  (16)  =SFIN  (15) 

POTS3320 

SPIN  (17)  =SFIN  (15) 

POTS 3 330 

SPIN  (18) =SFTN  ( 15) 

POTS334D 

SPIN  ( 1 9)  =1.0 

POT  1350 

SFIM(20)=1.0 

POTS  3 360 

SPIN  (21)  =1.0 

POTS  3 370 

SPIN  (22)  =1.0 

POTS 338C 

SPIN  (23)  = lOO. 

POTS3390 

S^=’IN  (24)  =100, 

POTS  3400 

SPIN  (25)  =1.0 

POTS3u'lC 

SPIN  (26)  ^1.0 

POTS  3420 

SPIN  (27)  = 1 . 0 

POTS3430 

SPIN  (28)  =1.0 

POTS  3 440 

I N (2  3)  =8PS1 +S  ] ;N  (0.5,PPS1) 

POTS3450 

IN  (2  4)  =FPS2i-ST  ;N  (0 .5  ,PPS2) 

POTS  3460 

IN  (2  5)  =0 

POTS  3470 

IN  (26) =1 

POTS  34 80 

IN  (2  7)  =0 

POTS  3 490 

IN  (28) =1 

POTS  3500 

DO  10  1=1,43 

POTS3510 

SPOUT  (T)  =1.0 

POTS  3520 

CONTINUE 

. . POTS  3 5 30 

SPOUT  (.9)  = 1.0/100C0. 

POTS3540 

SPOUT (10) =0 . 1 

POTS355C 

SPOUT  (14)  =1 . 0/1 OCOO. 

POTS  3 560 

S’^OUT  (25)  =0 .0  ■'*  AKT3/AIH 

POTS  3 57C 

SPOUT (27)  =0.0  1*  A KT 4/AIR 

POTS  3580 

SPOUT  (23)  =0.01  ' 

POTS  3590 

. J 
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POTS3600 

POTS3610 

POTS3620 


SFOUT  (37)  = (1. 0,'1500. 0) 

BETORN 

END 


Of  , ,, 

ffi  7 , ' " “ 

J *,  ■ . ■«•* 


:t 


.„  ' ;«.t 
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2.1.4  SBPG2 

PRESENTED  HERE  IS  THE  FORTRAN  LISTING  FOR  THE  MATHE- 
MATICAL MODEL  SUBPROGRAM.  THE  FOLLOWING  IS  PERFORMED 
IN  SBPG2; 

1)  Reading  of  the  analog-to-digital  converter 
variables . 

2)  Computation  of  simulation  time. 

3)  Calculation  of  all  digital  model  equations. 

4)  Data  preparation  for  output  on  the  digital- 
to-analog  (D/A)  converters. 

5)  Detection,  limiting,  and  flagging  of  D/A 
variable  overloads. 

6)  Collection  of  TRACK  data  for  output  at  the 


end  of  a run. 


,v: 

'■  ,/l-i-  '•  "*S  _ , 
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SU3R0DTINE  SBP':2 
SUBROTITINE  SBP^,2. 

COnnON/STABT/  SDU?1HY(4) 

COHflCN/FMON/IERDAC(1  C)  ,TEPDAC(10)  ,TDACK,IENDP  (20)  ,IOB 
COHMON/TO/DACPT.A  ,ADCPLA,  SCALDC^SCALAC 

COnMON/T8ACK/jrN,IKEEP, ATRACK, ISAKP,ONTIH ,OFFTin, ITRA , .. 

1 ITPAA^ITBNA,  I'^SIA 

COMMON/PAUL/  D 1 , D2 ,D  3 ,D4 , S FY U , T»P , SVPHTH , SNTHEU , S NPSIU , 

1QDT,PDT,  RDT  , UDT , VBT , WDT , PHTDT , TH EOT , PSI DT, YDT , Y DT , Z DT , 

1 AKK1,AKK2,  FXL1,FXL2,THS1 ,THS2, 

1 AMT1  ,P.MT2  ,SN,  S^XU,  BTVDT,  ETAX^ETAL  » 

1 ZIP  (4)  ,PHII  (4)  , 

1 011(4)  ,BAMI(4)  ,M0P(4)  ,SAMI  (4)  ,FI(4)  ,FXUI(4)  ,FYU.'  (4)  ,GI  (4)  , 

1 ALFI  (4)  ,BFTIP  (4)  ,B^TIBR  (4)  ,SLIPI(4)  , A « 1 I ( 4)  , AM  2 1 (4)  ,00  I (4) 

1 FCT  (4)  ,FCIMAX  (4)  ,FSI  (4)  , 

1 ABI(4)  ,BFTAI(4)  ,AHUI  (4)  ,SNI  (4)  ,R«I  (4)  (4)  ,FRIBH  (4)  , 

1 RWZI  (4)  ,7.1(4)  ,FRI  (4)  , 01  (4)  , VI  ( 4)  , iv  I ( 4)  , OGI  ( 4)  , 

1 VGI(4)  ,SINPSI  (4)  ,PSTI  (4)  ,COSPSI  (4)  ,OGIP  (U)  ,PHICGI  (4)  ,CVT  (4; 

1,ALTQ(4,^  ,OTK  (4)  ,SALTQ#FOTM,  ROTM 

1, API ,AP2, AP3, A?4, AR1  ,AR2,AR3,AR4,AN7I1 , A NTI2 , A NTT  3 , AST  14 ' 

1 ,DLIS  (4)  ,ZTMX  (4)  ,FBS1,FBS2, FBS3,FPS4 
1 ,5’HIDnX 

COWMCN/APL/  OPEN  ,RTSW  ,LOTSW  ,RBSK 
COM HON/D EVICE/KEYBD, ITTY , ICD RD , LPTP 
COMMON/HHHH/H1, H2, H3 ,H4 

COMMON/FPLTAX/3PSF3,  CPSF3  ,SPSR  4 ,C  PSP  4 , 3C'=' 3 , SCR  4 , DCR3  , TPiCP4  , T 5S’’  3 
1 TRSR4 ,TRSR3,T3SS4 ,TRCR3,TRCR4,PSR  3, PSR4,IAX 
COMHON/SOLOAX/EELPHT  (20)  ,PHIFN'^  (20)  , DFLTHF  (20)  ,'T'-'EFMT  (20)  ,NCAM, 

1 NCAS,PSIFN'^  (7;  ,PHIRR(7)  , THERE  (7)  ,P3IRR(7) 

C OH K ON/OUT VAR / VOUT , F T V , PS  1 3 S , PSI 4 S 

COMHON/EXTRA/  UOOT,POUT,  PSIOOT , FXTA B (002)  , 

1 DLYTB  (002)  ,rTAD  (002) 

C OH  H ON/TH  ING  S/TH  AX  1 , THA  X2  , TH  A X 3 QR  H AX  ,TQFHAX,  PSIH"X,  ONER 
COKHON/FFFS/PE'^1  , PEF2,THF1  ,THE2 
COM HON/D EL S/D EL SVC 
COHMON/CLFAN/CNEOA,ONFOD  ^ 

COM HON/XYZ/NUHBR 

CO H M 0 N /E  F F S/ A N 0 H , A n E N , A N 0 H DT  , A D EN  DT  , A NO  HO  , A n L' N 0 , A NO  ^ DO  , A D EN  DO  , 

1 ANOOT,ADCUT 

COHHON/XPS/'XB  (15)  ,NS  (4,1S)  ,DELX  (4)  ,XT  (4)  ,NNS 

COM  MON/V  A GS/P , 0 , R , 0 , V , W , X , Y , Z , T HE , PH  T , FSI , PO, 00 , RO , 00 , VO , WO , X 0, 

1 Yn,ZO,THEO, PHIO, FSTO 

COMMON/OVW/VC, OTN 
Cf^'MMrtVEES/O  1 , >2, "^3,  E4,E5,E0 
COMMON/ZTLCH/'^  >HAX  P,  AETQP 

COMMON/r  NOUT/  i.  N A ( 32 ) , lOOT  A f 4 0)  , IN  ( 3 2)  , D A CO  (4  B ) , I SW  1 , I 5W7  , 
15FIN(32)  ,SFOriT(48)  , I FRT , I TM  ^ (4  O) 

COM  H ON/CO  M BLK  / A IX?  , S M , A I Y?  , A I X Z P , G A Hi  , G AM  2 , ;LAM  3 , A I X 3fi  , M Y PR  , 

1 AIZ3P  , A1  , A/’  , 5IXZ  BR,A  12,E  1 , ^2,  f 3,  DEL'^A,  GV1  ,Goi  , GP2  , GP  1 , 

1 GR2,CIP,CIVP,RZF,EZH,  A2T,CA?0  ,CA23,  ASGNL,  ANGNI.O 

1 ,TR02,TF02,TS02,G,THPD, TWN7 

COKMCN/TI  MRLK/J.7TIMF,TIME,  DT 
COMMON/OPSW/IHSK 

COMMCN/SP70LK/M1  ,N2,  IPOT(12'')  ,IPOTAO(12C)  , PAP. AM  (4  DC) 
COf*MON/NEWEP/T"'ME25,TlME  1C  , PST.5  , PHI  M A X , LSWEAX 


1 ) ,PTTP  (002)  ,'VTB  (002)  ,EV5'TP  (0,02)  ,DYTn  (^^2)  ,PSITB 

1 YSPEC , PSIM  ,XPF 
COM  HON/NO N AME /.■;  EN  D,0  , EXIT 2 


O’-O 


2)  , NEON  , 


SBPG 

10 

SBPG 

20 

SPPG 

30 

SBPG 

40 

SBPG 

50 

SBPG 

6C 

SBPG 

70 

SBPG 

BO 

SBPG 

00 

SBPG 

100 

SBPG 

1 10 

S BP  G 

120 

SBPG 

1 3C 

SBPG 

1 40 

SBPG 

150 

SBPG 

160 

SBPG 

170 

SBPr- 

180 

SPPG 

1 90 

SBPG 

200 

S PPG 

21P 

SBPG 

220 

SBPG 

23'' 

SBPG 

24C 

S BPG 

250 

S B’^G 

260 

S BPG 

270 

S PPG* 

280 

S B PG 

290 

SBPG 

300 

S3PG 

3 1 0 

SPPG 

320 

SPPG 

3 30 

SBPG 

34C 

SBPG 

350 

SBPG 

360 

S BPG 

370 

S BPG 

3 80 

SBPG 

.390 

S BPG 

40C 

S BPG 

410 

SPOG 

420 

GPPG 

4 30 

SP-FG 

44  0 

OP.PG 

4 50 

SBPG 

460 

SPPG 

4T0 

SBPG 

4 HO 

S PPG 

4 90 

S B?G 

500 

SBPG 

5 1C 

S B PG 

520 

SB’^G 

5 3''' 

SBPG 

540 

SFPG 

550 

;SPPG 

5oC 

PPG 

57C 

SBPG 

B 

SPPG 

5 QO 
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COWHON/COMVAR/  AX  ft  V E , CO  VB  AT  , 3STDJ*X,CURTRP  , TIM  nEr,  JUMP  , DEISTS  , DEL, 
1 AJCI  ,CURVAV,ABBTV,  AYMA}T,BMAX,DFI.BFr,DEL?3I  ,EETAMX, 

1 TIMBBF^GETDL jTIMINS,  TSTEP  , IVFTP 

DIMENSION  CSI  (4)  , X EM  <4)  , SLP  (4) 

PEAL*0  ZDHMMY 

EQUIVALENCE  { FV AIDE ( 1)  , ZDUM M Y ( 1 ) ) 

EQUIVALENCE.  (A  PP(  1)  ^ APF1)  , ( APB  ( 1 ) , A PH  1)  , (MU5  ( 1 ),  MUSS')  , 

1 (APE  (2)  ,APF2)  , (APP (2)  ^ APR2)  , (MUS (2)  , MOSS) 

EQUIVALENCE 


1 

(PARAM  ( 1),\MS) 

f 

(PARAM  ( 2)  ,AMUF) 

9 

(PAPAM{  3) 

,AMUP) 

1 

(PARAM  ( 4)  ,Z’») 

0 

(PARAM  ( 5)  ,ZR) 

9 

(PARAM(  6) 

,A) 

1 

(PARAM  ( 7)  , S) 

9 

(PARAM  ( 8)  ,TF) 

9 

(PA^AMf  9) 

,TR) 

1 

(PARAM  (10)  ,?S) 

9 

(PARAM  (11 ) ,AIX) 

9 

(PAAAM(12) 

,ATY) 

1 

(PARAM  (13)  , MZ) 

9 

(PARAM  (14)  ,AIXZ) 

9 

( P A : A M ( 1 5 ) 

, AIR) 

1 

(PARAM  (16)  ,CF) 

9 

(PAPAM  ( 17) , RF) 

9 

(PAPAM  (18) 

,CFP) 

1 

(PARAM  (19)  ,AKF) 

9 

(PAPAM  (20)  ,ALAMF) 

9 

( ? A r A M ( 2 1 ) 

,OFC) 

1 

(PARAM  (25)  ,CRP) 

9 

(PARAM  (26)  ,AKH) 

9 

( P A 0 A M ( 2 7 ) 

, ; I,  AMR) 

1 

(PARAM  (22)  ,OFT) 

9 

(PARAM  (23)  ,CR) 

9 

(PA'AM (24) 

1 

(PARAM  (28)  , )RC) 

9 

(PARAM  (29)  ,ORT) 

9 

< P A :<  A M ( 3 C ) 

, AKRS) 

1 

(PARAM  (31)  , 3W) 

9 

(PA  HAM  (33) 

,0T) 

1 

(PAPAM  (34)  ,GAO) 

0 

(PARAM  (35)  ,CA1) 

9 

(PA'-  A M ( 36) 

/CA2) 

1 

(PARAM  (37)  ,'-A3) 

0 

(PARAM  (38)  ,CA4) 

9 

(PAPAM(39) 

, AISW) 

1 

(PARAM  (44)  ,LAFT) 

9 

(PARAM  (41)  ,AKSC) 

$ 

(P  A'-  AM  (42) 

,ANG) 

1 

(PAPAM  (4  3)  , LAFC) 

(PARAM  (40)  , ANL2) 

0 

(?AT"AM{45) 

, LARC) 

EQUIVALENCE 

1 

(PARAM  (46)  ,LART) 

e 

(PARAM.  (47)  , AIFW) 

9 

{PAPAM (48) 

,HDL) 

1 

(PARA  M (49)  , AIWF) 

9 

(PAP  AM  (50)  ,A  TWR) 

0 

(PA  RAM  (5  I) 

,Ain) 

1 

(PAPAM  (52)  ,\RBP) 

9 

(PARAM  (51)  , RPS1) 

9 

(PARAM  (54) 

,FPS2) 

1 

(PARAM  (55)  ,PTBR) 

9 

(PAPAM  (5b)  ,YSA  1) 

9 

(PA  RAM (57) 

,YSA2) 

1 

(PARAM  (5  8)  » YHS1) 

9 

(PARAM  (59)  ,YHS2) 

9 

(PARAM(60) 

r AKO) 

1 

(PARAM  (6  1)  , TQDRR) 

9 

{^AR  AM  (62)  , AK) 

9 

(P  ARAM  (63) 

, PIN) 

1 

(PARAM  (64)  ,QTN) 

0 

(PARAM  (65)  ,RIN) 

9 

(PAHA  M{66) 

,UIZ) 

1 

(PAPA  M (67)  , VIN) 

0 

(PAR.AM  (68)  , WIN) 

/ 

(P  A -t.  A«{69) 
(PARAM (72) 

,XIN^ 

1 

(PARAM  (70)  ,YIN) 

0 

(PARAM  ( 71)  ,ZIN) 

9 

,THJ IN) 

1 

(PARAM  (7  3)  , PUTIN) 

0 

(PARAM  (74)  , P.SIIN) 

9 

(PARAM  (75) 

,DT1  M) 

1 

(PARAM  (76)  ,TEMD) 

9 

p ARAM  (77)  ,AKT  1) 

9 

fp  AP.AM  (78) 

.^*<■02)  , 

1 

(PAPAM  (79)  ,.\KT3) 

9 

(■PAR.AM  (80)  , AKT4) 

9 

([  APAM  (Hi) 

»PPS1) 

1 

(PARAM  (82)  , RPS2) 

9 

(PARA'"  (83)  , RPS3) 

9 

(PARAM  (84) 

rRPS4) 

1 

(PAPAM  (85)  ,81) 

9 

(PARAM  (96) 

9 

(PAPAM (87) 

,B3) 

EQUIVALENCE 

1 

(PARAM  (88)  ,B4)  , 

(PARAM  ( 09)  , DFI.1PN)  , 

(PAPAM  ( 90)  ,0FL2ni.) 

1 

(PAPAM  ( 91  ) , DEL'IPN) 

9 

(PAP  AM  ( 92)  ,0FLFIN) 

9 

(PhPam  ( 9 3),  r:L'LpT|.j) 

1 

(PARAM  ( 94),n,FL3^N) 

9 

(PAR  AM  ( 95)  ,PPIDN) 

9 

(PARAM (96) 

,PHrpN)  , 

1 

(PARAM  { 97)  ,DFW 1TN) 

9 

(Pfi.P.AM(  '38)  , DFW2IN)  , 

{ P A R A M ( 9 9 ) , in  PT  N ) , 

1 

(PARAM  (100)  , n2PIN ) , 

(^APAM  ( 10  1)  ,U  3PTN) 

9 

(PA''AM(102)  ,rJ4rriJ)  , 

1 

(PAPAM  (103)  ,S1PIN)  , 

(PARAM  (10  4)  ,S2PTN) 

9 

( P A A M ( 1 C 5 

) rSlPIN)  , 

1 

(PARAM  (106)  , S4P7N)  , 

(PAPAM  (107)  ,PPPT) 

1 , (PA  PAM (1 10)  , TQM  AX)  , (PAPAM  M 1 1)  , AKTQ)  , (PA  PA^  { 1 12)  ,VCI N) 

1 , (PA  SAM  ( 1 13)  , Srt’MT)  , (PARAM  (1  1U)  ,DSWCM)  , (PA  PAM  ( 1 1 5)  ,TSf)  , 

1 (PAP  AM  (1  16)  ,OSLP)  , (PAPAM  (117)  ,v7'';aM)  . (PARA  K (110)  ,CS) 

1 , (PARAM  (110)  ,TQPB'^  ) , (PASAM  (1  20)  ,TQFSR) 

1 , (PAPAM  (121)  ,PST.)  , (PARAM  (122)  ,ttD)  , { PAH  A M ( 1 2 3)'-,  DS  iV) 

1 , (PAP  AM  (12  4)  ,TSX)  ' ' 

EQUIVALENCE 

1 (PAR  AM  ( nC)  pAMCS  ) , (PAPAM  ( 1 3 1 ) ,ESP)  , ( PAR  A ,M(  1 3 2)  , AKSL  1)  , 

1 (PARAM  ( 1 33)  , \KSI.2)  , (PAPAM  (1  34)  , AA1)  , (PA  PAM  (l  3S)  , AA2)  , 

1 (PARAM  (136)  ,CCR)  , (PAHM1  (1  17)  ,CFCR)  , (PAPA  M (1  3HV,.AP)  , 

1 (PAPAM  (139)  /SPI)  , (PAPAM  (140)  , KP2)  , (PAPAM  (ial)  ,ESP  1)  , 

1 (PAR  AM  ( 14  2)  , ^PP2)  , 

1 (P  ARAM  ( 14  3)  , \ 1L1 ) , (PAPA"  ( 1iJii)  , A ML2)  , ( PA  H A (1  {•  ViS)  ,.sriM)  , 


SBPG  ■6  00 
‘.  BPS  610 
SFPG  Cp 
SEfG  ViO 
SBPG  (4^ 
SBPG  '>SC 
SBPG  S60 
SBPG  6Pft 
SBPG  6 80 
SBP,’  69C 
SBF(.  700 
S-(PG  710 
SFPG  720 
SBPG  730 
^P.PG  74  0 
SBPG  750 
3BP^'  760 
SBPG  770 
SBPG  78C 
SBPG  790 
SBPG  BOO 

SBPG  ero 

SBPG  82^ 
SBPG  830 
S3PG  840 
SBPG  850 
SBPG  8O0 
SBPG  B70 
SBPG  BPii*' 
SBPG 

SBPG  900 
SDPG  910 
SBPG  9?n 
SBPG  930 
SrlPG  940 
SBPG  950 
SBPG  960 
SBPG  970 
SBPG  98C 
SBPG  990 
SBFGI 000 
SBPG1010 
S BPG1C20 
SBPG 1C  30 
S L’^G  IP!;-': 
SBPG)  0 5^ 
SBPG 1060 
SPPG107C 
SBPG  10  SO 
SPPG1090 
SnPGI 100 
SBPG1 1 K 
SBPG1 120 
SPPG1 130 
3BPG1 140 
SBPG  1 150 
SBPG1 16C 
S G ■»  1 7T- 
SBPG1 180 
S RPG  1 190 
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(PARAH (223) , CR1 C) 
(PARAM (226) ,CR2T) 
(PARAfl  (229) ,CR4C) 
(PAPAS  (232)  , AH2) , 
(PARAS  (235)  , AKF2)  , 


1 (PARAS  (146)  , aWR)  , 

1 (PARAS(169)  ,SNT)  , (PARAH (170)  ,SNSC)  , {PARAS  (171)  ,3NS1) 

1 (PARAS  (182)  , Sil  (1  ) ) , (PAPAS  (196)  ,EPSK1)  , (PAPAS ( 197) 
EOarVAT.ENCE  (PARAS  (202)  ,APP(1)  ) , (PARAS  (204)  ,APR(1))  , 

1 (PARAS  (206)  ,SUS  (1 ) ) 

EQUIVALENCE 

, (PARAS  (224) , CP  IT)  , (PARAS  (2  25) , CR 2 C) 
, (PARAS  (227)  ,CP  3C)  , (P A P AS  ( 2 29 ) , CR  3T) 
, (PARAS (230) , CP4T)  , (PARAS  (231)  ,AH1)  , 
(PARAS (23  3)  ,ANL)  , ( PAP  A S (2 3 4)  , AK FI ) , 
(PARAS  (236)  , AKP.3)  , (PA  PAS  (2  3 7)  ,AKS4)  , 
(PARAS (2  42)  ,AKCF)  , (PARAS  (243)  , AKCR)  , (PARAS  (24  4)  , AKSP) 
EQUIVALENCE  ( P \R AS  (2 45)  , RB  ( 1) ) , (PARAS  (249)  ,TFK (1)  ) , 
(PARAS  (252)  ,TPK  (1)  ) , 

(PARAS (255)  ,OFC0)  , (PAPAS  (256)  ,0FC1) 

(PARAS  (258)  ,0PC3)  , (PARAS (262)  ,nPC3) 

(PAPAS  (259)  ,OPC0)  , (PARAS  (260)  ,0RC1 ) 
EQUIVALENCE  ( PAPAS  (2  6 3)  , CPOF)  , (PAPAS  (264)  ,CP1F) 

1 (PAP  AS  (26  5)  ,CP2F)  , (PARAS  (266)  ,CPOR)  , ( P A P A S (26 7 ’) 

1 (PARAS  (26  8)  ,CP2R)  , (PARAS  (269)  , CPOF) , (PAPAS  (27  0) 

1 (PARAS  (271)  ,CR2F)  , (PARAS  (27  2)  ,CPOR)  , (PARA  (273) 

1 (PARAS  (274)  ,CR2E) 

EQUIVALENCE  ( R 3 ( 1 ) , R B 1 ) , (RB  ( 2)  , R B2) 

(RP  (3)  ,RB3)  , (RP  (4)  ,RB4) 


EPSK2) 


(PARAS  (257)  ,0  FC2) 

(PAPAS  (26  1)  ,0RC2) 

CPIR)  , 

,CR1F)  , 

/:rir)  , 


(T'^K  (1  ) 
(T^K  (2) 
(TFK  (3) 


AFK1)  , (TRK  (1)  ,A:'K1) 
AFK2)  , (TRK  (2)  , APK2) 
AFK3)  , (TFK  (3)  , ARK3) 


(PARAS (285) 
(PAR  AW  (291) 
(PARAS  (294) 


,UPC) 

,PAC) 

. T3 


A3) 


(PARAS  (292) 
(PAR  AS  (29  5) 


,RA1) 
, PA4) 


EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
1 (PARAS  (284)  , HFC) 

1 (PARAS  (290)  , ROT) 

1 (PARAS  (293)  ,RA2) 

EQUIVALENCE 

1 (PAR  AS  (296)  ,DEL IDT) , (PARAS  (2P7)  , DEL2DT)  ,{ PAPAS  (238)  , DELJPT) 
1 (PARAS  (2  99)  , DEL  1)  , (PARAS  (300)  , CFL2)  , (PARAS  (301)  ,DEL3)  , 

1 (PARAS  (30  2)  ,PH:RD)  , (PARAS  (30  3)  ,PHTR)  , (PAR  AS  (30  4)  ,DELFW1)  ^ 

1 (PAPAS  (305)  ,DELFW2)  , (PARAM(306)  , U 1 P)  , (PAFAW(307)  ,ri2P)  , 

1 (PARAS  (3  0 8)  ,U3?)  , (PARAS  (30  9)  ,U4F)  , (PARAS  (3  10)  , Sl^)  , 

1 (PAPAS  (31  1)  ,S2P)  , (PARAS  (312)  ,53P)  , (PARAS(  313)  ,S4P)  , 

1 (PARAS  (314)  ,QUAN1)  , (PAPAS  (315)  ,QUAN2)  , (PARAS  (3  1 r-.)  ,QUAN  ))  , 

1 (PARAS  (317)  ,QUAN4)  , (PARAS  (318)  ,ARPS1)  , (PARAS(3  ) ') 

1 (PAR  AS  (3  2G)  ,W  STH1)  , (PARAS  (321)  ,I4CTH1)  , (PARAS  (3  22) 

1 (PAPAS(  32  3)  ^WCTH2)  , (PARAS  (324)  ,I0'JT(1)  ) 


,ARP52) 
, W5TH2) 


EQUIVALENCE 
FQU  VALENCE 

1 

1 

1 

1 (UI  { 1)  ,0  1)  , 
1 (UT (2)  ,U2)  , 
1(UT(3)  ,[J3), 
1 (UI  (4)  ,U4)  , 
1 (5INPST ( 1 ) , 


(PHIPn,  CFL4D'^ 
(F3ZI { 1)  ,RWZ1) 
(PVZT  (2)  ,Rvv'Z2) 
(F72I  ( 3)  ,RWZ3) 
(F7ZI  (4)  ,RWZ4) 
(VI  (1)  ,V1  ) , (WT  (1) 
(VT(2)  ,V2)  , (WT  (2) 
{VT  (3)  ,V3)  , (WI  (3) 
(VI  (4)  ,V4),  (WI  (4) 
IINP5  1)  , (PSII  (1)  , 


rW3) 
,W4) 

PS  II)  , 

1)  , (PHicor  (1)  , Filled)  , (cvi  (1)  ,cvi)  , 
1 (SINPSI (2) , ST NP02)  , (FSTI  (?)  ,PST?)  , 
1)  , (PHICGI  (2)  ,PSI:G2)  , (CVT  (2)  ,CV2)  , 
1 (SINPSI  { 3)  ,SIMPS3)  , (P3II  (3)  ,PST3)  . 
1)  , (PHICGI  (3)  , PHICG3)  , (CVI  (3)  ,CV3)  , 
1 (SINPSI  (4)  ,SINR‘S4)  , (PS II  (4)  ,rST4)  , 
1)  , (PHICGI  (4)  , PHICG4)  , (C  VI  ( 4 ) , C V 4 ) , 
EQUIVALENCF  fASUT.(  l)  , ASU1)  , (SNI  (1) 


, (PHI4,PFI,4) 

(ZI  (1)  ,zi)  , i (1) 
r^T  (2)  ,72}  , (-’r  I (2) 
(ZI  (3)  ,Z3)  , (RRl  (3) 
(ZI  (4)  ,Z4)  , fFRI  (4) 
,W  1)  , (UGI  ( 1)  , UG1) 
,7  2)  , (UGT  (2)  , 

(UGI  (3)  , 

(UGI  (4)  , 

, (C0SP3I 
r (ABI  (1) 


Fi1  ) 
F-2) 
FR  n 
FR4) 


(AKTI  ( 1)  , 
(AKTI  (2)  , 
(AKTI  ( 3)  , 
(AKTI  (4) 


A KT  I ) 
AKT  ■') 
, ‘ KT  3) 
, A K ’^4  ) 


(VGMl) 
(VGI  (2) 
(VGI  (3) 
(VS  I (4) 
•0S?.:1)  , 


UG?) 

HG  3) 
nG4) 

(1) , 

, AF1  ) , (BETAI  ( 1) 
(COSPST  {2)',CCS?;S2)  , 
(ART  (2)  , AR2)'  , ni-’T’A.I 
(COSPSI  (3)  ,C0SPS3)  , 
(ABI  (i)  ,A.B3)  , (RRTAI 
(COSPST  f 4)  ,20SP54)  , 
(APT  (4)  , AR4)  , (3ETAI 
,Sr.M)  , (BSI(1)  ,RS1)  , 


, Vd)  , 

, VG2)  , 

, VG3)  , 

, VG4)  , 
(IJGIP  (1  ) 
n f 7 .A 


1) 


SPPG1200 
SBPG1210 
SBPG1220 
S PPG  12  30 
SPPG124C 
SBPG125C 
SBPG1 260 
SBPG127C 
SBPG128C 
SBPG1 290 
S PPG  1300 
SBPG1  .3  10 
SDPG1 320 
SBPG1  .3  30 
,SPPd  3UC 
SBPG1 350 
SBPG1 36C 
S BPG1 370 
SBPG1 340 
SBPG 1 390 
SBPG1400 
S P d 4 1 n 
SBPG 1 420 
SBPG 14 30 
SBPG 1440 
S BPGl 450 
SBPG1 460 
S BPGl 470 
SBPG1 480 
SBPG1 490 
S BPGl 500 
SPPG1510 
S BPG 1 5?0 
SBPG  1 5 30 
SBPG1 540 
S BPGl 550 
SBPG  1 560 
SPPG1570 
SBPG1S80 
SBPGl 590 
Spr'G  16  00 
S 3P  G 1 6 1 0 
S BPG  1 f^2  0 
, SBPG 16 30 
, S BPGl o4C 
, SBPG  1 65v9 
,SbPG166G 
S BPGl 670 
SL3PG16B0 
SBPG 16^0 
S PP(;1  700 
PS BPGl 710 
3 BPG 1720 


(UGir  (2)‘,UG2PSBPG17  30 
(2},IF.T\?),  SBPG  1740 
((JGIP  (35  ,3G3RSBPG1750 

(3) ,  BETA  3),  SBPG  1760 
{ UGI p (4 ) , PG  4PS  PP  G 1779 

(4) , BIT A 4)  SPPG17R0 

(GBI(1) ,Gn1) ,5B?G1790 


145 


(A  UII  (2)  ,AmJ2)  , (SNI  (2)  ,SN2)  , {FHI(2)  ,RM2)  , (GPT  (2)  , GB  ?)  , S BP G l 800 

(AMai(3)  ,Af10  3)  , (3NT  (3)  ,SN3)  ^ (FMI  ( 3)  ,RH3)  , (GBI  {3)  , GB  i)  ,SBPC1810 

(A.^!0I(4)  , AMD4)  , (SNI{4)  ,SN4)  , (BHI(4)  ,HR4)  , (GBI(4)  ,G84)  ^SBPG182C 


(BETIBR  (1) ,BST1BaSBPG  i 830 
(001  ( 1)  ,U01)  , f)BPG^840 


1 
1 
1 

1 (PRIBP (1)  ,FR1B8)  , (ALFI  (1)  ,ALP1) , (BFTIP (1)  ^B^TIP)  , 

1)  , (SLIPI  (1)  ,SLI:P1)  ^ , (A«2I(1)  ,A!12  1)  , 

1 (FRIBR  (2)  ,FR2BR)  , (ALFI(2)  , AL72)  , (BET IP  (2)  ,BFT2P)  , (PETIBR  (2)  , BET2BPSBPG1P5C 
1)  , (SLIPI  (2)  ,SL:P2)  , (ABU  (2)  ,ABT2)  , (AB2I(2)  ,AH22)  , (UOI  (2)  , 002)  , FBPG1860 
1 (^EIBR(3)  ,ER3PR.)  , (ALFI(3)  , ALE  3 ) , (BETI  P ( 3)  ,BET3P)  , (BETIEP(3)  , BET  3BRSBPG1  87C 
1)  , (SLIP!  (3)  ,SLIP3)  , ( A«1I  (3)  ,Atn3)  , (AH2I(3)  ,AM2  3)  , (UOI  (1)  ,003)  , 3 PPG  1830 

1 (FRIBR (4)  ,PR4BR)  , (ALPI (4)  , ALF4) , (EETIP  (4)  ^ BFT4P) , (BETIBR (4) , B ETU BRSBPG 1 B9C 
1) , (SLIPI (4)  ,SLTP4)  , (AH1I  (4)  ,AM14) , (AB2I  (4)  ,A«24) 


1 (in  I {1 ) , 0 1 1 ) 

1, 

1 (Oil  (2) ,012) 

1, 

1 (Oil  (3) ,0  13) 

1 (Oil  (4)  ,014) 
EQUIVALENCE 

1 
1 
1 

1 (»?CIBAX(  1 ) ,FC  IMAX)  , 
1 (FCIBAX(2)  , PC 2 MAX)  , 
1 (FCIMAX (3) , FC3MAX)  , 
1 (?CIBAX(4)  ,FC4MAX)  , 
EQUIVALENCE 

1 

1 . 

1 

FQOI V ALEN  CE 

1 

BO  F 


(BAMI  (1)  ,BAH  1) 
(3ABI  (2) ,BAM2) 
(BAHI (3) , BAM3) 


, (SII(1)  ,ST1) 
, (SII(2)  ,SI2) 
, (SII(3)  ,SI3) 


(SAHI  ( 1) 


(001  (4)  ,004)  , 
,SAB1) , (FT(1i , 


, (SII  (4)  ,ST4) 

(FYUI  ( 1)  ,FYU1)  , (GI  ( 1)  ,G1) 
(FYUI (2) , FYU2)  ,(GI(2),G2) 
(FYUT  (3)  , FYD3) 

(FYUI  (4)  ,FY04) 

’'SI)  , 


SB PC  1900 
’^1)  SBPG19  10 
SBPG192C 

(SAMI (2)  ,SAM2) r (FI (2) ,?2) 5RPG193C 

SBPG 19411 

(SAMI  (3)  ,SAB3)  , (FT  (3)  ,F3)  SBPG'i9‘iO 

SRPG1 R6C 

(SAMT  (U)  ,SAB4)  , (EI(4)  ,F4) SBPG1970 
(FCI (1)  , FC1)  ,5BPG198C 
(FCI  (2) 

{’'Cl  (3) 

(FCI  (4) 


(GI  (3)  ,G3) 
(GI  (4)  ,G4) 


74  13 


, (BAKI  (4)  ,8AM4) 

(FXOI(  1)  ,FXU1)  , 

(FXOI  (2)  ,FXU2)  , 

(FXUI(3) ,FXU3) , 

(FXOI  (4)  ,FX04)  , 

(FSI  (1)  , 

(FSI (2)  ,FS2)  , 

(FSI(3)  ,FS3)  , 

(FSI  (4)  ,PS4) 

(ZIP  (1)  , YIP)  , (PHII  (1)  ,PHT1)  , 

(Z-P  (2)  , Z2P)  , (PHII  (2)  ,PHI2) , 

(7.rp(3)  , Z3P)  , (PHII  (4)  ,PHT3)  , 

(Z^P(4)  ,Z4P)  , (PHII  (4)  ,PHI4) 

(DT.1S,DLIS(1)  ) , (nL2S,r)LIS(2)  ) 

(DL4S,Dl.  TS(4)  ) 

REAL*4  BOP  ,MUS  (2)  ,PD  (4)  ,TFK  (3)  ,TRK  (3)  ,SII  (4)  ,APF  (2)  , APR(2) 
REALi'4  LAFC,LAPT,LARC,LART 
REAL*4  AKTI (4) 

REAL*4  ATRACK (2000) 

R EAL*4  BVALIIE  (^)  ‘ 

RSAL  + 4 IOUT(48)  , I N , I TMP, SCAL AC  ( 28 ) ,SCALDC  (43) 

INTEGER* 2 DACPLA  (4  8)  , ADC  PL A (2 8 ) , I TR A A (50)  , ITR N A (50)  , I T P T A (50 ) 
INTEGER*2  RTS9  ,RBSW  ,LDTSW  ,OPEN 
USB  A/D  READ  VALUES 
DO  7413  T=1,2fi 

PVALOE  ( ADCPL.A  (I)  ) =TN  (T)  ♦SCAL AC  (I) 

CONTINUE 


(DL3S,DLIS(3)) 


FC2) ,SBPG1R90 
FCI)  ,Sr.PG2000 
FCR) ,SBPG2010 
SEPG2020 
SBPG2030 
SBPG2040 
EBPG2050 
SEPG2060 
SBPG2(170 
SEPG2080 
SBPG2090 
SBPG2100 
SPPG2nO 
5BPG2120 
SPPG21 30 
S?og2140 
SBPG2150 
SBOG2160 
3SPG2170 
SPPG2180 
3BPG2190 
SRPG2200 
SBPG221C 
SBPG2220 
SBPG223C 


DELFW1=-DELFW 1 
DELFW2=-DFLFW2 
THSW=l 

TIMF=FLOAT(UJTIME) *DT 
JJTI HF=JJTIMF-M 
ENTRY  SBPG22 
TSW=  1 

IF (TIME. GT. 0.  ) GO  TO  6 

DO  5 K = 1 , 4 ; 

FSI(K)  = 0.  ■ 

ALTQ  (K)  =0. 

ZTMX  (K)  = 100 . 

5 CONTINUE 
P HID  MX  = 0. 
b CONTINUE 

C FUNCTION:  PSI'-’NI-COEFFICIFNIS  TO  A POLYNOMIAL  FIT  'iP  FRONT  WHFPL 


SBPG2240 
S BPG2250 
SBPG2260 
SBPG2270 
SBPG2280 
SBPG2290 
SDPG2300 
SBPG2310 
SBPG232C 
SBPG2330 
SPPG2.340 
SBPG2350 
SBPG2360 
SBPG2  370 
SBPG238r 
CS  BPG2  390 
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C TOE-IN  .S  k FUNCTION  OF  SnSPENSION  DEFLECTION  (DELI)  CSBPG2400 

C CSBPG2410 

C INPDTS:  PSIFNT- (DEGBEES/INCH)  CSPPG2420 

C DELI- (INCHES)  SBPG2430 

Q ^i^^^l^4t****<¥**i**’^*^*  ^^******’^*^  ******’¥*  *****  ***’^'***^f****  *******  SBPG2440 

C INCBE&SING  THE  SPRUNG  HASS  OVER  THAT  FOR  WHICH  STATIC  WHEEL  SBPG24Sn 

C DEFLECTION  IS  MEASURED,  YIELDS  .-A  DELFIN  AND  A DELPIN  WHICH  SBPG2460 

C IS  A NEGATIVE  NOHBER  S3PG2470 

Q **************^*****  ******  ^****^*  ***************  If  ************  ****  S BPG?  480 

C DELFIN  AND  DELPIN  REPRESENT  A CHANGE  IN  STATIC  DISPLACEMENT  SBPG2400 

C OF  THE  FRONT  AND  REAR  WHEELS  DUE  TO  LOAD  CONFIGURATIONS  SBPG2500 

C OUTPUTS:  POLY-(DEGREES)  CSBPG2*^10 

C CSBPG2S20 

C DLIS  (I=),2,3,U)  IS  THE  SUSPENSION  DEFLECTION  RELATIVE  S3PG2530 


u 

TO  THE  UNLOADED  POSITION  FOP  WHEEL  I 

SBPG2540 

DLIS  = DELI  ♦ DELFIN 

SBPG2550 

DL2S  = DEL2  ♦ DELFIN 

SBPG2560 

DL3S  = DEI.3  ♦ DELRIN 

SBPG257C 

DL4S  = DEL4  ♦ DELRIN 

GBPG258C 

IP(IAX.EQ.I)  PL3S  = DL3S  > TS02*PHIR 

SBPG259C 

IF(IAX.EQ»1)  DL4S  = DL3S  - TS02»PHIR 

SBPG2600 

PSI1  = DELF«1  ♦ (POLY  (DL  1 S,  PST  ENT)  EP  SK 1 ) * . 0 1 74S  32  0 

SBPG2610 

PSI2  = DELFW2-  (POLY  (DL  2S , PSI  PNT)  <-FPSK2)  » .01  74S32  9 

SBPG2620 

PSOS  = AKRS*PHIP 

5BPG2630 

PSI4S  = AKRS*PHIR 

SBPG264C 

c 

CSBPG2650 

c 

FUNCTION:  PHIFNT-COZFFICIENTS  TO  A POLYNOMIAL  FIT  fc-  FPON'^  WHEEL 

CSBPG2660 

c 

CAHBFR  AS  A FUNCTION  OF  SUSPENSION  D.EFLEC"ION 

(DELI) 

CSBPG267C 

c 

CSBPG2630 

c 

INPUTS;  PHIFNT- (DEGRFES/INCH) 

CSBPG2690 

c 

DELI-  (I'ICHFS) 

SBPG2700 

C 

SB^)  (32710 

c 

OUTPUTS:  POLY- (CEGREFS ) 

CSBPG2720 

c 

CSBPG2730 

PHI1=  (POLY  (DL  IS,  PHIFNT)  ♦ SIGN  ( F EF  1 , FS  1 ) ) . D 1745320 

S PPG 2740 

PHI2= (-POLY (DL2S,PHIFNT)+STGN (FFE2,FS2) ) * . 01745329 

SBPG2750 

PHI  3 -PHI R 

SBPG276D 

PHI4=^PHTR 

S PPG2P70 

C 

CS  3PG2780 

C 

FUNCTION:  THEFNT-CASTFR  AS  A FUNCTION  OF  SfJSPFNSION 

CS  RPG2  790 

c 

DEFLECTION  (DELI) 

CSBPG2800 

c 

CSBPG28 10 

c 

INPUTS;  THEFNT  ( D EG  RE E S/I NCH ) 

CSBPG232C 

c 

DFLT- ( INCHES) 

CS  BPG 2 8 30 

c 

CS  BPG 2 840 

c 

OUTPUT:  POLY- (D’^GP^^ES) 

CSEPG2850 

c 

CSBPG2B00 

THS1=  (POLY  (DL 1 S, THEFNT)  ♦THE  1) r 1 745  32  9 

SBPG2P70 

THS2=  (POLY (DL?S, THFPNT) +THE2)  *.0  1745  329 

S8PG2880 

PHS1  = YHS1, +PHI  1 

S BPG 2 890 

PHS2=YHS2tPHI2 

3RPG29O0 

IP(TAX.EQ. 1) GC  TO  7843 

S 3PG291C 

c 

CS3PG2920 

c 

FUNCTION:  PS TRR- C lEFFICIENTS  TO  A POLYNOMIAL  0"  PEAR 

W H F ^ I- 

CSBPG29  30 

c 

TOE-IN  AS  A FUNCTICXN  OF  SUSPENSION  D^’^LECTJON 

(DELT) 

C5BPG2940 

c 

CSBPG2950 

INPUTS;  PS IRP- (DEGR FES/INCH) 

CS3PG295r 

DELT-  (INCHES) 

CSBPG297C 

(2 

CS  BPG 2D 80 

c 

OUTPUTS:  POLY- (DEGREES) 

CSBPG2990 
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o o 


C 

PSI3S 

PST4S 

C 

C FUNCTION: 

C 

C 

C INPUTS: 

c 

OUTPUTS: 


= POLY(DL3S, PS IRB)  « .01745329 
= -POLY  (0L4S,?SrPR)  ♦ .01745329 

PHIRR-COEFFICIENTS  TO  A POLYNOHIAL  FIT  0^  RFAR  WHEEL 
CAMBER  AS  A FUNCTION  OP  SUSPENSION  DEFLECTION  (DELI) 

PHIRR-  (OEGR EES/INCH) 

DELI- ( INCHES) 

POLY- (TEGREES) 


7843 

C 


21 

22 

23 


.24 

25 

20 


31 

3 2 
33 


34 

35 

36 
IOC 


PHI  3 =POLY (DL3  3,PHIRF) *.0  17  45329 
PHI4=-POLY(DL4  3,PHIR  B)*. 01745329 
CONTINUE 

CALCULATION  0^  FRONT  BUMP  STOP  FORCES 
IP(nLIS.LT.OFC)  GO  TO  21' 

IF (DL1S.GT.OFT)  GO  TO  22 
FBS1  = 0. 

GO  TO  23 

FBS1  = AKF*(LA^C  - 1.)*{DL1S  - OFC) 

GO  TO  23 

FBS1  = AKF*(LAFT  - 1.)«{BL1S  - OFT) 
CONTINUE 

IF (DI 2S. LT. OFC)  GO  TO  24 
IF {DL2S. GT. OFT)  GO  TC  25 
FBS2  = 0. 

GO  TO  26 

FBS2  = AKF*{L;.FC  - 1.)^(DL2S  - OFC) 

GO  TO  26 


FBS2  = AKF*(LA"T  - 1.)*(DL2S  - OFT) 
CONTINUE 

CALCULATION  Of  R'’AR  BUMP  STOP  ^^ORCFS 
IF  (DI.'«S.  LT.ORC)  GO  TO  31 
IF  (DL3S, GT. CRT)  GO  TO  32 
FBS3  = 0. 

GO  TO  33 

FBS3  = ^KB*(LARC  - 1.)*(OI.3S  - ORC) 
GO  TO  33 

FBS3  = AKR*(LART  - 1.)*(DL3S  - OPT) 
CONTINUE 

IF  (DL4S. LT. CPC)  GO  TO  34 
IF  (DL4S.  GT.ORD  GO  TO  35 
FBS4  =C. 


GO  TO  36 

FRS4  = AKP*(LARC  - 
GO  TO  36 

FCS4  - AKH+  (LART,  - 

CONTINUE 

TM1  =7,-  a^tHE 

TN2  = TF02*  FHI 

Z 1PP=TM 1+TM2 

Z1P=Z1PP+ZF  - 

Z1=Z1P>DEL1 

Z2PP  = TM  1-TM2  *•- 

Z2P=Z2PP*ZF 

Z2=Z2P+DEL2 

TM1  = Z + B*'^HF 

TM2=TP02*PHT 

Z3PP=TM1+TM2 


1 . ) ♦ (DL4S  - cnc) 

1 .)  ♦ (DI.4S  - ORT) 


CSBPG3000 
5DPG30 10 
SBPG.3C20 
CSEPG3030 
CS PPG 3 040 
C5DPG3050 
CSBPG3060 
CSBPG307C 
CSBPG3080 
CSBPG3090 
CSBPG3100 
CSBPG31 1C 
SRPG3120 
3BPG3130 
SBPG3140 
SBFG3150 
SBPG3160 
SBPG31 70 
SBPG3  ■»8C 
SBPG31 90 
SBPG3200 
SBPG3210 
SBPG3220 
SBPG323C 
SnPG3240 
SBPG3250 
S3PG3260 
SBPG3270 
SBPG32R0 
SBPG3290 
SBPG33C0 
SRPG3310 
SBPG3320 
SBPG333C 
SBPG3340 
SBPG335C 
SBPG3360 
SPPG337C 
SPPG33fiO 
SBPG3390 
SRPG3400 
SRr’G3  4 10 
SBPG3420 
SRPG3430 
SBPG3440 
S PPG  3 45 G 
SPPG3460 
S RPG347C 
SRPG348C 
S pc>G3490 
S3PG350C 
SPPG3510 
SPPG3520 
SBPG3530 
. SBPG3540 
RRPG355C 
SBPG3560 
SBPG3R70 

SBPG35PC 

SRPG359C 
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21P=Z3PP»XR 
7,3=Z3P  + nEL3 

IF(TAX.  BQ.  1)  Z3=Z3*-TRC2^PHIR+’^EL3-nFL3 

Z4PP=TM1-TH2 

Z4P=Z4PP>Za 

Z4=Z4P+DEI4 

IF  (l  AX.EQ.I)  Z4=Z4-TR02*PHIR-»-DEL3-DEL4 

DO  20  K=1,4 

RWZI  (K)  = RW  ♦ ZI  (K) 

IF(FWZI(K)  .LT.ZIMX  (K))  ZI«X(K)  = RHZT(K) 

FRI(K)  = 0. 

IF  (RftZI  (K)  . GT.  0.)  FRI(K)  =.  AKTI  (K)  ♦ RWZI(K) 

20  CONTINUE 
Tnl  = U-frZF*Q 
TR2=TF02«B 
U1=Tnl“TH2 
U2=Tf11+Tf12 
TRl=n4-ZR*0 
TN2=TR02*R 
U3  = TH  1-TN2 
D4=THUTP12 
VARZFP=V4  A*P-ZF«P 
V0RZRP=V-F*B-ZR*P 
PPHIR=P 

IF  ilAX.EO.  1)  PPrirR=P+  FHIRD 
V 1=VARZFP+Z1 *F 
V2=VARZFP-»-Z2*P 
V3  = VBRZRP  ♦•Z3<'P'’HIR 
V4=VBRZRP+24*IPH1R 
WA0=y- A*0 

WBQD3  = W+  B«Q4-DFL3DT 
TF2P=TF02*P 
TR2P=TR02'“P 
Wl  = WA0  + TF2P+DFL’iDT 
W2=W AQ-TF2P+DFL2DT 
TF  {IAX.EO.2) go  to  9G  33 
W 3=WBQD3  + TRC2’f‘PPHI  R 
W4  = WB0D3"TRO2*PPf^I  R 
GO  TO  9’73  9 

9738  WB0D4  = 'M*-B*Q*DFL4DT 
W3=vJBQD3+TR2P 
W4^WBQD4-TR2P 
97  39  CONTINUE 

PSI"*  = PSI3S+  ALTO  (3  ) * AKSR 
PST4  = PSI49+  ALTO(U)*AKSP 
DO  3 0 I , 4 

Ur.I-(K)  = UI{K)  *■  TlfF«Wl(K) 

VGI(K)  = VI  (K)  - PHI^-WTCK) 

STNP3I  (K)  = SIN  (PS  II  (K)) 

cnsr'Si(K)  = cos(Psri(K)) 

UGIP  (K)  = UGI  (K)  ♦ CCSPSI(K)  ♦ VG.T(K)  * SINPS:(  ) 

30  CONTINUE 

COMVRT  - 3600./(  12  .*S280.)  ■ ' ■ 

CZ^roS  (PSI)  ■ 

SN^SIN  (PST)  . ■ . 

DO  4 0 K = 1 ,4  ■ ■ ‘ . 

CVI(K)  = SORT  (Ur  (K  ) * rjl  (K)  V I ( F)  V T (:<))*  CON  V.  ? 'i:  ■ ' 

A3T  (K)  = ABS  (ns:-  ('^)  ) . 

BETAI(K)  = ATAN  (VGT  ( K) /A^T  (K)  ) PS  T T ( K)  UfFI.' F ) /A  PI  ( F ) 
SN’T(K)  = SNSO  / SNT  ■ " ' - 


SBPG360P 
SBPG36 10 
SBPG3620 
SBPG3630 
SPPG3640 
SPPG38S0 
SRPG3660 
SBPG3670 
SBPG368C 
SBPG309C 
SBPG3700 
SBPG3710 
SRPG3720 
SBPG3730 
SBPG374C 
«;PPG37S0 
SBPG376C 
SB«G377C 
SBPG3780 
SBPG379C 
SPPG3800 
SBPG381 C 
SBPG3B20 
SPPG3830 
SBPG384G 
S PPG 3 8 50 
SBPG3  86 C 
S BPG3  870 
S BPG  'iPaO 
SBPG389C 
SBPG390C 
SPPG3910 
S B’’G392C 
G PPG 39  30 
S PPG3  940 
SRPG3950 
SBPG  ^960 
S R PG  3 970 
SROG  3 9 80 
S BPG39Q0 
SBPG4000 
S '^PGU  r 1 0 
SBPG4020 
SRPG4030 
3PPG404n 
S^i^G4C5C 
SPPG406O 
■=:BPG4  0'T0 
S PPG  4 0 8C 
SFPG4090 
SPPG4  10'' 
SPPG41 10 
SPPG412C 
SBPG 4 1 30 
S RPG4 140 
S PPG  4 1 50 
SPPG4  16C 
SSp04 1 70 
S PPG 4 1 - 0 
S 3PG4 1 TT 
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40 


C 


3497 


CONTINUE 

TNTFUN  IS  OSEI  FOR  ROAD  PATCH  BITH  VARING  C0EFF:^CENT  OF  FRICTTON 
INTFUN=PARA«(  172)  +0.  5 
IF(INTFUN .EQ.O)  GO  TO  3497 
IF (TNTFUN.NE. 1)  GO  TO  3498 

X1=A*CZ-TF02*SN  +X  ' 

X2=A»CZ4-TF02*SN  >X 

X3=-B*CZ-TR02<'SN  +X  ' , 

X4=-B*CZ4>TR02*SN<-X 
TEHP=PA8An(173)  ♦PARA«(174) 

TEMP=TEnP*12.  0 


PPPP=t:ARAn  (17  3)  * 12.0 
IF(X1.GT.PPPP 
IF (X2.  GT, PPPP 
IF(X3.GT. PPPP 
I^(X4.GT. PPPP 
GO  TO  3498 
CONTINUE 

?Y1  = A*SNvTF02«C:Z  +Y 


AND.  X1.LE. TEMP) SN1=SNS1/SNT 
AND.X2.LF.TEMP) SN2=SNS1/3NT 
AND. XI . LE. TEMP) SN3=SNS1/SNT 
AND. X4. LE.TEflP) SN4=SNS1/SMT 


Y2=A*SN-TF02«CZ  +Y 
Y3=-B*SN+TR02*CZ  ♦Y 


Y4--B*SN-TR02*CZ+Y 


IF  (YY1 .LT.O .0)  3N1=SNS1/SNT 
IF(Y2. LT. 0. 0) SN2=SNS1/SNT 
IF(Y3.LT.0.0) SN3=SNS1/SNT 
IP  (Y4.LT.  C.  0)  FN4  = SNS1/SNT 
3498  CONTINUE 

RA23=RA2*RA3 
R2T= ROT+RA2 
RA20=RA0*RA2 

C CALCULATICN  OF  SIDE  FORCE  FRICTION  COEFF 

C 

C FUNCTION; 

C 

C INPUTS: 

C 

Q 

C 

c 

C 
C 

c 
c 

C OUTPUT: 

C 

DO  60  F=1,2 

KK  = K 2 ' 

A MU  I (K)=  (BI+FFI  (K)  +B2*CVI  (K)  + 3 3 + 3 4*  FR  I (K)  *FRI  (K)  ) ♦SNT  (F.) 

PNI(K)  = FRT(K)  * AMUI(K) 

PRIBR(K)  = AMIN  (FF  I ( K)  , A2T) 

C ALFI  IS  THE  DtNOWiNATOR  FOR  THE  BETA  BAP  CAICULATinN 

ALFI(K)  = CA-1  ♦FPTPR  (K)  ♦ (FRTBR  (K)  - CA2)  - CA20 

IF(ALPI(K)/CA?, GF.O. ) ALFI(K)  =-1.CE-10 
PHICGI(K)  = TBE+SINPST  (K)  + PH  T «COS  ?S  I (K)  ♦ . 

1 + A KCF  + FSI  (K)  • . 

BETIP  (K)  = CAIM*  (CA4 -FRIER  (K)  ) *FRIBR  (K)  *FBTCGI  ( '^  / ( C A4  « A L PI  (K)  ) 

TP  (RMI  (K)  .FO. ^.)  GP  10  610 

PETIBP(K)  = ALFI  (k")  ♦ (PE'^AI  (K)  B ET  T P ( K)  ) / (CA  2 ♦ "M  I (K)  ) 

GO  TO  710 

610  PETIBR  (K)  = 0 . 


AMUI-MAXIMUM  LATERAL  FRICTION  COEFFICIEN'^ 

B1- (PAPAMCBS)  ) ,LOAD  TERM  COEFFICIENT  OP  LATERAL  FSTC^rON 
COEFFICIENT  (1/LB) 

32- (PAPAM  (86)  ),  VELOCITY  TERM  COEFFICIENT  OF  LATFRAI. 
FRICTION  COEFFICIENT  (1/MPR) 

B 3t- (PAPAM  (97)  ), CONSTANT  TERM  (UNITY) 

B4- (PAFAM  (88)  ) ,QUAPR  ATIC  LOAD  T FRM  ( 1 AP  ♦ ’«'2 ) 

"=’RI-RAPTAL  TIRE  FORCE  (POUNDS) 

CVI-.VELOCTTY  OF  VEHICLE  (HPH) 

AHUT-M AXIMUM  LATERAL  FPTCTION  CCEPPICIENT  (UNITY) 


S3FG42CC 
S3PG421C 
SBPG4220 
SBPG4230 
SBPG4240 
SBPG425C 
SBPG4260 
3BFG4270 
SBPG4280 
SBPG4290 
S3PG430C 
SBPG431C 
SBPG4320 
SBPG4330 
SBPG4340 
SBPG4350 
SBPG4360 
SBPG4370 
SBPG4380 
S3PG4390 
SBPG4400 
SBPG4410 
SBPG4420 
SBPG4430 
SBPG4440 
SBPG4450 
SBPG4460 
SBPG4AT0 
SBPG448C 
S9PG4490 
SBPG4500 
CSBPG4510 
CSBPG4520 
CSBPG4530 
CS  PPG4540 
CSDPG4550 
CSBPG4560 
CS  BPG457G 
SBPG4580 
SBFG4590 
CS BPG4600 
CSPPG46  10 
CSPPG4620 
CS3PG4630 
C33PG4640 
SPPG46S0 
S9PG4660 
SBPG4670 
3BPG468C 
S3  PC,  4 6 90 
SBPG4700 
SBPG47 10 
S 3PG4  72C 
3BPG4730 
SBPG4740 
SBPG4*^50 
S BPG476B 
SRPG4O70 
SBPG478r 
SBPC,U79^ 
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c 

c 

c 

c 

c 

r 

c 

V 

c 

c 

c 

c 


c 

c 

c 


710  CONTINUE 

Af^UT  (KK)  = {RBI  + BB1«FRI(KK)  <•  RB2»CVI(KK)  + R P'i  *FP  I { KK)  ♦?»  I 
1 ♦SNI  (KK) 

RHI(KK)  = FFI  (KK)  * AflUI  (KK) 

FRIBR(KK)  = AHTN  (FSI  (KK) , R2T) 

ALFI  (KK)  = RAUFRIBF  (KK)  * (FRIBR  (KK)  - HA2)  - P A20 

IF(ALFI(KK)/RA2.GE.O.)  ALFI(KK)  = 1.0E-10 

PHICGI(KK)  = THE’^'SINPSI  (KK)  ♦ PHI^COSPSI  { KK)  + PHII(KK) 

1 AKCF=>FSI  (KK) 

IP(IA7.EQ.1)  PiilCGI  (KK)  =0. 

BETIP(KK) =SA23« (RA4-FRIBR (KK) ) ♦FRIPR (KK) ♦PHICGI (KK) /(RA4^ALFI 
IF(RFI  (KK)  .EQ,0.)  GO  TO  630 

BETIBR(KK)  = AI.FI  (KK  ) ♦ ( BETAI  (KK)  ♦ BETIP(KK))  / ( EA2*  R SI  (KK)  ) 
GO  TO  730 

630  BETIRR  (KK)  = 0. 

730  CONTINUE 
60  CONTINUE 
no  11  K=  1 , 4 

ABI(K)  = ABS(BETIBR  (K) ) 

IF(AEI(K)  .GE.3.)  GO  TO  10 

GBI(K)  = BETIBR  (K)  «{ 1.-THRD*ABI  (K) +TWN7*BFTIBR  (K) «*2) 

GO  TO  80 

10  GBI(K)  = BETIRR  (K) /ABI(K) 

80  COFTINUF 

PARAM(314  -317)  ARE  EQUIVALENCED  TO  QUANl  - 4 
SLIPT(K)  = PAPAS  (K  ♦ 313) 

IF  (SLIP!  (K)  .LT.  (-1 ,)  .OR. SLIPI  (K)  . GT.  1.  ) S LI PI ( K ) = SIG N ( 1 
SAMI(K)  = (RETAI  (K)  *■  BET^P(K))  ♦ S7.29B7R 

11  CONTINUE 

CIRCUMFERENTIAL  FRICTION  COEFP  CALCULATION 

MIIP-  PFAK  BRAKING  COEF.  OF  FRICTION 
MUS-  SLIDING  COEF.  OF  FRICTION 
SII-  SLIP  RATIO  AT  WHICH  PFAK  BRAKING 
CCEP.  OF  FRICTION  OCCURS 

SNI-  RATTO  OF  STM;.  VEHICLE  SKID  NUMBER  SURFACE 
TO  TIRT^  DATA  SKID  NUMBER  SURFACE 

FUNCTION:  AH1I-PISE  SLOPE  OF  UXT  VS.  WHEEL  SUP 

SAMI-  SIDF-SLIP  angle  (EFGREES) 

ST  1-  (P?  A I ( 18  2)  ,UNIT  Y) 

ST  2-  (PARAM  (183;,  , UNITY) 

SI  3-  (PA  :.A  (18  4)  , UNITY) 

SI  4-  (PAR  AM  (18  5)  , UNITY) 


SLI  P 


C 


DO  1 3 
KK=K+2 
MUP (K) 
MUP (KK) 
AM  II  (K) 
MUS  (1) 


OUTPUT 
K=  1 ,2 


A Ml  I - UNITY 


= APF1  i-  APF2*FRI(K) 

= APR  1 + A PR2  « FPT  (KK) 

= (MUF (K) /ST  I (K) ) * (1.  - . 
EQUALS  SUSP, MUS (2)  EQUALS 


3’*‘APS  (SAMI  (K)')  ) 
MUSP 

(1)  ■ 


IF(AM1I(K) .LT.MUS(I) ) AM1I(K)  = MUS 
AM1I  (K)  = AM1I(K)  SNI  (K) 

AMII(KK)  = (MUP  (KK) /SII  (KK)  ) + ( 1 . - 
TF(AM1I(KK)  .LT,  MUS  (2)  ) A*'MI(KK)  = 

AM1T  (KK)  - AMll(KK)  =!“  SNI(KK) 

AM2I  (K)  = ((MU3(1)  - MUP(K>)/(1.  - SII(K)))*(1 


0.0  3’<'A  BS  (SAMITKK)  ) ) 
MI'S  (2)  , . ' 


)6*>ArS  {-SAMI  (K)  ) ) 


SBPG4800 
(K“')  ) SBPG4810 
SBPG4820 
SBPG4830 
SBPG4840 
SBPG485C 
SBPG486C 
SBPG4870 
SBPG4880 
SBPG4690 
(KK) ) S3PG4900 
SBPG4910 
SBPG492C 
5 BP G4 9 30 
SBPG4940 
SBPG4950 
SBPG4960 
S RPG4  970 
SBPG498C 
SBPG4990 
SBPG5000 
3BPG5010 
SBPG5020 
SBPGBCRr 
SBPG5040 
SBPG505C 
I (K)  ) SBPG5060 
SBPG5C7C 
S BPG5080 
S BPG5C90 
5BPG5  IOC 
SBPG51 10 
SBPG512C 
SBPG5  1 30 
5 PPG 5 1 40 
SBPG5150 
S BPG5  160 
S^PGS 170 
S BPG5 1 80 
SBPG51 90 
CS  BPG5200 
CS  PPG5  ? 10 
CSBpG522n 
CSBPG5230 
CS  BPG5240 
SBPGS250 
CSPPG5260 
SBPG527^ 
SBPG5280 
SPPG5290 
SBPG5  300 
SPPGSRIC 
SDPG5  320 
SBPG5330 
SBPG534^ 
S PPG 5350 
SBPG53hO 
SBPG5  3-;'C 
SPPG‘^3BP 
SPPG5  190 
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o n 


TF{AM2I(K)  .GB.'“10S(1)  ) AM2I(K)  = nOS(1) 

AM2I  (K)  = AM2T(K)  ♦ SNI  (K) 

AM2I  (KK) = ( (HUS  ( -H  OP (KK)  ) / ( 1 . -S II  ( KK) ) ) ♦ ( 1 . - . 06 * A BS (SAHT  (KK) ) ) 
TF(AH2I(KK)  .GE.  ans  (2) ) AH2I(KK)  = MUS(2) 

AH2I(KK)  = AH2I(KK)  ♦ SNI(KK) 

C OUTPUT:  U1I-VALUE  OF  UXI  AT  BRAKE  SLIP  = 1.  (UNITY) 

D1I(K)  = MUS(1)  * SNI(K) 

OII(KK)  = MUS(2)  ♦ SNI(KK) 

C OUTPUT:  UOI-INTFRCEPT  OF  UXT  AT  BRAKE  SLIP  = 0 (UNITY) 

001  (K)  = U1I(K)  - AK2I(K) 

UOI(KK)  = UII(KK)  - AH2T(KK) 

13  CONTINUE 

DO  12  K=  1 ,4 

BAHI  (K)  = BFTAI(K)  ♦ BETIP(K) 

XBH  (K)  = BAHI  (K) 

SLP(K)  = SLI?I(K) 


C 

C 

C 

C 

C 

C 


FUNCTION 


I NPUT3; 


C 

C 

C 

C 

C 


OUTPUTS : 


FCSI-SIDE  FORCE  SHAPING  AS  A FUNCTION  OF  SLIP 

SAMI-  SIDE-SLIP  ANGLE  (DEGREES) 

SLP-SLI'’  (UNITY) 

GAHF-SIDE  FORCE  SHAPING  FUNCTION  AS  A FUNCTION  OF 
SLIP  (UNITY) 

AFA-EPAKING  SLIP  (UNITY) 

NPA-NUHBEP  OF  DATA  POINTS 

FCSI-LINEARLY  ITEBPOLATED  SIDE  FORC''  SHAPING  FUNCTION 


SEPG540C 
SBPC5410 
SBPG5U20 
SBPGSuJO 
S3PG  5440 
SBPG5450 
SRPG5460 
SBFG5470 
CSPPG54B0 
SEPG5490 
SBPG550C 
SRFG5510 
S3PGS520 
SBPG5530 
SbPG5540 
SBPG5550 
CSBPG5560 
CSBPG5570 
CSBPGSSeO 
CSBPG5  5'90 
CS3FG56DC 
CSBPG5610 
CSBPG5620 
CSBPG563C 
CS  PPG564C 
CSrPG56S0 
CSBPO5660 
CS PPG Sc 70 


CSI  (K) 
FI  (K) 


12 


= FCSI  (CA>'I  (K)  ,SLP  (K)  ) SBPG5680 

CSI(K)  SPPG5690 

PARAM(306)  TO  (3C9)  CIRCUM.  FRICTION  COEF,  SBPG5700 

FXUI(K)=  FRI (K)  * (THE-PARAM (K+305)  ♦COSPSI (K)  - FT (K)  ♦AMUI  (K)  SPPG5710 

1 ♦SIN  PS  I (K) ♦GBI  (K) ) SBf G5  720 

GI  (K)  = -PHI-PARAM  (K+30  5)  *SINPSI  (K)  ♦?!  (K)  ♦AMOI  (K)  ♦COSPSI  (K)  ♦GPT  (R)  SBPG5  73  0 
FYUI(K)  = FPI(K)«GI(K)  SBPG57mG 

FCI  (K)  = FRT  (K)  *PARAM  (K  + 30S)  S BPG5750 

FCIHAX(K)  = FPr  (K)  *A  H1I  (K)  ♦STI  (K)  SBPG5760 

FSI(K)  = FRI (K) *FI  (K) «A MUt  (K)  *GBI  (K)  SRPG5770 

CONTINUE  • SPPGS/80 

ALIGNING  TORQUE  CALCULATIONS  SBPG5790 

OVER-TURNING  E,)HENT  CALCULATIONS  SBI-GSSCC 

DO  4280  K=1,2  SBPG58J0 

KK=  K«-2  SBPG582C 


ALTQ  (K)  = AFK  1*1--’I  (K)  ♦FSI  (K)  ♦ SIGN  ( 1 . , FST  ( K)  ) * P S I ( K)  ♦F  S I(K ) PK  ^ 

1 +SIGN(1.  , PMTCGI  (K) ) ♦FRT  (K)  *SQRT  (ABS  (PHICGI  (K)  ) ) ♦ A FK 3 

ALTQ  (KK)  =ARK1*”’RI  (KK)  ♦FSI(KK)  +SIGN  (1.  , F S I (K  K ) ) * ’"SI  ( K K)  ♦ F SI  ( KK) 

1*APK2 

1 +SIGN(1.  ,PUICGI  (KK)  ) *FRI  (KK) ♦SQRT  (ABS  (PFICGT  (KK)  ) ) *AFK3 
OTM  (K)  =FPT  (K)  ♦ (OFC  FST  (K)  +OFC2  + FST  (K)  ♦PHICGI  (K)  OFC3  * PH  I CGI  ( K1  ; 
OTM  (KK) =FRI  (KK)  ♦ (0 PC  1 ♦ F S I ( K K)  + ORC 2* FS T (KK ) ♦ P H ICG I (KK)  +ORC3 
1 ♦PHICGI  (KK)) 

4280  CONTINUE 

SALTQ- ALTQ  ( 1)  +ALTQ  (2)  ♦■ALTO(3)  +AITQ(4) 

FOTH  = OTH  { 1)  +OT  1 (2) 

POTM=nTN  (3)  (4)  '■ 

SPXU  = FXU  UFXU2«-’"X'J3+ FXUU  i " 

SFYU  = FYU 1 +FYU24  F YU  3+ 'YU  4 

SNPSIU  = AK  (FYU1«-FYU2)  -R*  (FYU;UFYU4)  ♦■TF02^(  FXU2-FXU1) 

1 +TP02*  (FXU4-FXU3)  + SALTQ 

TF(TAX.E0.2)GO  TO  4287 


SBPG5  8 JO 
St»Pu5H40 
SBI'GSBSC 
S8PGS  660 
SPP.J'jBIO 
SBPG58H0 
SRPGS890 
S PPG  5 9 1' 0 
SBPGS9 in 
SBPG5U20 
SBPG593C 
SBPGS9U0 
SBPGS950 
S BPGS960 
SBPG597C 
SRPGS980 
SBPG5P9C 
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SNTHEU=A*  (S1P  + S2P)-B*(S3Pf^^4Pj  - FXU  1 *Z  1 PP- FXU2 * Z2  >P 
1 -FXU3*Z1 PP-PX 04*Z4PP 

SNPHIU=TF02* (S2P-S IP) +TS02* (S4P-S  3P)  + F YU 1 ♦ ( Z1  P ? * HFC) 

1 >FYU2^  (Z2PP+HFC) 

1 - (FY0i^FYU4)  ♦ (DEL3+H RC  + ZP) 

1 ♦ FOTM 
GO  TO  4288 

4287  SNTREU  = A*  (S1P4-82P)  -B*(S3P  + S4P) -FXGUZ1PP-FXU2*Z2PP  ' 

1 -FXU3*Z3PP-FX04*Z4PP 

SNPHIU=TF0  2* (S2P-S IP) ♦T802*  (S4P-S3P) +F YU1 ♦ (Z1 PP  + UFC) 

1 ♦FY0  2*  (Z2PP+H  FC)  ♦FYU3*  (Z3PP  + HRC)  <-F  YU4*  ( Z4PP  + HRC) 

1 ♦ FOTM+ROTM 

4288  CONTINUE 

C KINEMATIC  CALCULATIONS 

GO  TO  (1000, 1 3000)  , ISW 

1000  CONTINUE 

QDT=  (SFXU/SM- SNTHEU/GAM2)  *ONEOA 

UDT=  V«R-M«Q-G*"^HE-  ( A2  + SFXU/SM-  A1*SNTHEU/GAM2)  ♦0':E0A 
WDT=n*0”  V*P-  (S1P  + S2P+S3P+S4P)  / AMS 
TMP=  W^'P-U*H*-G*PHI 
Dl=Sfl*TMP+SFYU 
D2=-GAK3*TMP»SNPHIU 
D3=GAM 1 ♦TMP+SNPSIU 
VDT=(D1*F1+^2«GV1+D3^GV2)*0NF0D 
PDT=  (-D1<'E2+n2^GPl  ♦P3*GP2)  ♦OMEOP 
ROT=  (D1*  E3  + D2*GR  UD3*GR2)  «0NE0D 
PHIDT=P<-R*THE 
THEDT=Q-R*PHI 
101  PSinT=R  + 0*PHI 
XnT=U*CZ- V*SN 
YDT  = U*SN+  v*cz 
ZOT= W-U*TRE+V*^HI 
ANUMDT=  (FCI  ♦-FC2  + FC3+FC4) 

ADENDT= (FC1MAX>FC2MAX+FC3MAX+FC4MAX) 

ISMPQ=PARAM  (127)  +n.S 
ISWPQ=ISWPQ+ 1 

GO  TO  (7001 ,7002,7003,7054) ,ISWPQ 
GO  TO  7001 

7002  PDT=0,0 

GO  TO  700 1 

7003  Q[)T=0.0 

GO  TO  7001 

7004  PDT=C.O 
001=0.0 

700  1 CONTINT!E 

GO  TO  (1  100,1  .00)  , ISW 
1 100  CONTINUE 

IR  (PAPAM  (180)  . EQ. 1) 

1GO  70  90100 
n = UO+UDT*DT 

v=vo  + vdt*i:t 

W=WO+WDT*PT 
P=P0+PDT*FT 
Q=QOfODT* CT 
E=RO+KDT«DT 
X=XO+XDT*PT 
Y = YO  + YT)T*nT 
Z = 20  + ZDT*  n-T' 

PHI=PHTn+-PI!TDT«DT 
THE  = THE0'«-TUFDT*UT 


SBPG6000 
SBPG6010 
SBPG6020 
SBPG6030 
SBPG6040 
SPPG6050 
S3PG6060 
SBPG6070 
SBPG60B0 
SBPG6090 
SBPG6  100 
SBPG6 110 
SBPG6120 
SBPG6  13C 
SBPG6140 
SBPG61SC 
SBPG6160 
SBPG6  170 
SBPG6 180 
SBPG6190 
SBPG6200 
SEPG621C 
SBPG6220 
SBPG6230 
SBPG6240 
SBPG6250 
SPPG6260 
S BPG627C 
SBPG6280 
SBPG6290 
SBPG6300 
SBPG6310 
SBPG632C 
5RPG8330 
S3PG6340 
SBPG6350 
SRPGB360 
SBPG6370 
SBPG6  380 
SBPG6390 
SBP3640C 

S3PG641U 

SBPG6420 
S BPG0430 
c;bpg6440 
SBPG645C 
SBPG646C 
S PPG  6 4 70 
SPPGSaBO 
S PPG6  4 9C 
SBPG650C 
SBPG6510 
SBPG6520 
SBPG6530 
SRPG6540 
SBPG6S50 
SBPG6SB0 
SBpr;6S70 
SBPG6580 
SBPG609C 
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PSI=PSIO*PSIDT’i‘DT 

SBPG6600 

A N’UM  = ANUH0+ ANU^DT*  OT 

SBPG661C 

ADEN=ADENC+ADENDTODT 

SBPG6620 

9100  CONTItfHE 

SBPG6^30 

UDTO=UDT 

SBPG66U0 

VDTO=VDT 

SBPG6650 

«DTO=WDT 

SBPG6660 

PDTO=PDT 

SBPG6670 

qoto=odt 

GBPG6680 

BDTO=RDT 

SBPG6690 

PHTDTO=PHIDT 

SBPG6700 

THEDTO=THFDT 

SBPG6710 

PSTDTO=PSIDT 

SBPG6720 

XDTO=XDT 

SBPG6730 

XnTO=YDT 

SBPG674C 

ZDTO=ZDT 

SBPG6750 

ANUnDO=ANURDT 

SBPG67f,0 

ADENDO=ADENDT 

GBPGf 770 

IF(PARAn (180)  .EQ.  1.) 

SBPG6780 

1GO  TO  1200 

SBPG6790 

ISW=2 

SBPG6800 

GO  TO  100 

SBPG6810 

1200  TLT=0.5*DT 

SBPG6R20 

V=VO  + TLT*  (VDT  + VnTO) 

SBPG6830 

» = H04-TLT*  (WDT  + ^fDTO) 

SBPG6840 

P = PO  + TLT*  {PCT  + PDTO) 

SBPG6850 

Q = QO  + TLT«  (QDT  + QOTO) 

.8BPG6R80 

a=RO+TLT*  (RDT  + RDTO) 

8BPG6870 

X=XO+TLT*  (XDT  + XDTO) 

SBPG6880 

Y = YO  + TLT*  (YDT  + YD'"0) 

SRPG6890 

Z=ZO^TLT*  (ZDT  + ZOTO) 

5BPG6900 

PHI=PHIO  + TLT*  (PHIDT4-PHTDTO) 

SBPG6910 

THE=THEO^■TLT♦  (THEDT  + THEDTO) 

SBPG692C 

PSI=PSTO+TLT*  (PSinT+ PSIDTO) 

SBPG6930 

[J  = U04-TLT*  (MOTfllDTO) 

SBPG6940 

ANUM  = ANrTMO+TLT*  ( A NU 8 DT«- A NO  M DO) 

SBPG695C 

ADEN=ADENO  + TLT*  { ADEN  rT  + ADENDO)' 

SBPG6960 

PniOUT-PHI+TLT*PHTDT 

SBPG6970 

THEOnT  = TH.F  + TLT*THEDT 

SBPG6980 

PO(JT=P  + PDT*TLT 

SBPG6990 

OOUT=Q  + ODT<‘TLT 

SBPG7C00 

ROUT=Bf RDT*TLT 

SBPG7010 

UOTIT=0  + UDT*TLT 

SnPG7020 

VOUT=V+VDT+TLT 

SPPG7030 

WOUT=W+WDT*TLT 

SBPG704C 

ZOUT=Z+ZDT*TLT 

SRPG7050 

XOUT=X+XDT*TLT 

SBPG706C 

YOUT=Y+YDT*TLT 

. 

SBPG7C70 

pnTOUT=0. 5*  (1.0*PDT-FDTO) 

? BPG7C80 

QDTOIIT-C  . 5*  ( 3 . 0*QDT-  QOTO) 

• ■ 

SDPG709C 

RDTOUT=0.  (3.  '''♦ROr- RDTO) 

SBPG7100 

PSIOUT=PST  + TLT*  FSin'" 

8BPG711C 

U'DTOUT=0  . 5*  (3  . UOTO) 

SBPG712C 

VDTOUT=.  5*  (3’.  »VnT-.VDTO) 

•SBPG7130 

WD7OUT  = 0.  5*  (3  . ^^^^’'DT-WDTO) 

SRPG7 140 

ANOUT=  ANUE  + Tl.T-^AMU  MDT 

SBPG71SC 

ADOUT=  ADFN  + TL'^*  A HE  NOT 

SBPG  71hC 

PO  = P 

SBPG7170 

00=0  , : 

S3PG7 180 

DDO  = DD  ‘ ■ 

SBPG7 190 
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PO=R 

(JO=U 

VO=V 

WO=W  f . 

xo=x.  ;•  • 

YO=Y  ■ 

zo=z 

PHIO=PHI 

THEO=THR 

PSIO=PSI 

ANUHO=ANUn 

ADENO=ADEN 

< IF (PARAn  (180)  .FQ. 1 .) 

1GO  TO  99120 
P=POUT 
Q=QOUT 
R=ROOT 
0=00 UT 
V=VOOT 
U=WOOT 
X=XOOT 
Y=YOOT 
Z=7.00T 
PHI=PHIOOT 
THE=THEOOT 
PSI=PSTOOT 
ANOH=ANOOT 
’ ADEN=ADOOT 

IP (PARAM  ( 180)  . FQ. 2. ) 

1G0  TO  300C 
ISH=  3 
GO  TO  100 
3000  P=PO 
0 = QO 
R=RO 
0 = 00 
V=VO 

w=wo 

X=XO 
Y = YO 
Z=ZO 

PHT=PHIO 
TfTE  = THFO 

P3  =rSTO  : 

99120  CONTI NOF 

C STEERING  AND  FLAKING  GOF^ANDS  C AT.  C ilT,  AT  ED 

DSLE  = PARAF  ( 1 1 4^  /PAPA  P’  (1  16) 

XTEP=PARAP  (12  1)  /PABAE  (192) 

IF(PAPAf^  (126)  .'IP.G.O)GO  TO  4121 
T ? (TIME. GT. TST) GO  TO  6000 
D 815^0=3.0 

GO  TO  70  0 0 ..?  ■ 

6000  DELSWC= (TIME-T3T) ♦ns  I M 

IF  (APS  (DELSWC)  . GT.  DS  0 '-‘ES  W C = PS  k CM  ♦ S H’ M ( 1 .O, , '^“'LSWC) 

IF  (PAPAM  ( 128)  . EO. 3 . G) GO  TO  70^0 

r F ( TIME.  GT.  4 . G ) DEI  SWC=D3WCM*  ( S . 5 -T I f'  E)  * S IGN  ( 1 . 0 , DFLSWC) 
7000  DFLSWC=DELSWC*. 0 17 45329 
PF  = C.O 

1’=’ (TIME.  LT.  TTr  ) '.vC  TO  4444 
PF=  (TIMF-CGAM)  ♦XTHP 


SBPG7200 
SBPG7  2K) 
SBPG7220 
SBPG7230 
SBPG7240 
SBPG7250 
SBPG7260 
SBPG7270 
SBPG7280 
SBPG729C 
SBPG7300 
SBPG7310 
SBPG7  320 
SRPG7330 
SBPG73U0 
SBPG7350 
SPPG7  160 
SBPG7370 
SBPG71B0 
SBPG7190 
SBPG740C 
SEPG7410 
SBPG742C 
SBPG7410 
SBPG744C 
SRPG7450 
S BPG7460 
SBPG747C 
SBPG7480 
SBPG749C 
SEPG7500 
5BPG7S10 
SPPG752G 
S PPG7B30 
SBPG7540 
SBPG7550 
SBPG7560 
SBPG7570 
SBPG7600 
SEPG7S90 
SBPG7600 
SBPG76 10 
S PPG 7 620 
c;B^’G76  10 
SPPG764F 
SPPG7650 
SBPG766C 
SnPG7670 

S3PG76R0 

SBPG7&90 

SFPG7700 

SPPG7710 

SPPG7720 

SP>PG773C 

SEPG7740 

SPPG7750 

SBPG7760 

SPPG7770 

SBPG778C 

SEPG77Pn 
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IP  (PAPAM  (12  8)  . -^0. 1 ,C)  TO  2 22  3 
IP(PARAM  (128)  .^Q.3.0)r,O  TO  2223 
2222  IF  (PPoGT. PPL)  PF=PFL 

IF  (TTME.LT.CGA«i)  PF=0  .0 
PFP=  (TIME-CS)  ♦<THP 

IF(  TIKE.GT.es  ) PF=P F* (CS-TTHE) /I  0 . 
IF(TIKE.I,T,CS)  ^FR  = 0.0 
TF (PFR.GT. PFL)  PPR=PFL 

IF(  TTHF.GT.es  ) PFP^PFR* (eS-TIHE) /10 . 


e FDHeTTON; 

c 

C ' 

e INPUTS: 

c 

c 

c 

c 

c 

e OUTPUTS: 

r* 

c 


FF-FRONT  «HEFL  BRAKE  TORQUE  AS  A FUNCTION  OF  FROST 
BRAKE  LINE  PRESSURE 

PFR-FRONT  WHEEL  BRAKE  LINE  PRESSURE  (PSI) 

PBF-ERAKE  LINE  PRESSURE  (PSI)  , ABSISSA  US’^O  IN  LINEAR 
INTERPOLATION  SUBROUTINE 

TQBF-FFONT  HHFEL  BRAKE  TORQUE  (INCH-POUNDS) , ORDINATE  USED 
IN  LINEAR  INTERPOLATION  SUBROUTINE 

FF-INTFRPCLATED  FRONT  WHEEL  BRAKE  TORQUE  AS  A FUNCTION 
OF  FRONT  BRAKE  LINE  PRESSURE 


TQFBR=-FF  (PF) 


C 

C FUNCTION: 

C 

C 

C INPUTS: 

C 

C 

C 

C OUTPUT: 

C 

C 


PR-REAR  WHEEL  BRAKE  TORQUE  AS  A FUNCITON  OF  REAP  BRAKE 
LINE  PRESSURF 

PFR-ERAKE  LINE  P RESS UR E (PS  I) 

PBR- BRAKE  LINE  PRESSURE  (PSI) ABSISSA 

TQER-RFAR  WHEEL  BRAKE  TORQUE  (INCH-POUNDS)  , ORDINATE 

FR-INTF3POLATFD  REAR  UMEFL  BRAKE  TORQUE  ’“■S  A FUNCTION 
OF  REAR  ERAKE  LINE  PRESSURE 


TQRBR=-FR  (PFR) 

GO  TO  2345 

2223  PF= (TIHE-CGAH) *XTHP 
IF  (PF.GT.  FFL)  P’^=PFL 
PFF=  (TIHE-CGAF)  ♦XT^P 
IP(PFP.GT. PFL) »FR=PFL 
TQFBR=-FF  (PF) 

TQRRR=-FF  (PFR) 

IF(TIME. LF.CGA^) TQFBR=0. 

IF (TIME. LE.CG AN) TQRPR=n. 

GO  TO  2345 
4444  TOFBE=0.0 

TQRBP  = AKTQP<'  (VT-noUT) 

IF  (TQRER  . GT.TQN  AXP)  TGRDR  = 'T'QH  AXP 
GO  TO  2345 
4321  CONTINUE 

DELSWC=SIN  (3.  1'M5U3*TrHE)  ♦DSU*  . 0 1 7 4 5 32  9 

TF  (TIME.  GT.  TSW)  DELSWC=0. 0 

PF=0.0 

TQRBR=0.0 

TQFRR=0.0 

I^fPARAM  ( 12  5)  ,.  EQ.0.0)GO  TO  2 34  5 

1*='  (TIME.  LF.  PAT  (2  78)  .OR.  GT.  PAR  AH  (27  9)  ) r,o  TO  2.3  4 5 

PF=  (TI  ME- PAPA  H (279)  ) *260  0':.'.  n 
IF  (PF.  GT.  PFL)  ?F  = PFL 

TQRPR  = -FR  (PF)  ' ' ' • 


SEFG7a00 
SBPG7B10 
SEO-3782C 
SBPG7  8;iO 
SBPG7340 
SEPOTPSO 
SBPG7860 
SBPG7870 
SEIGTSflO 
CSRPG7890 
CSBPG790C 
CSBPG7910 
CSPPG792C 
CSBPG7930 
CSBPG7940 
CSBPG7950 
.CSBPG796C 
CSBPQ797C 
CSBPG798C 
CSBPG7990 
CS8PG8000 
CSBPGP010 
5BPG802C 
CSBPG8030 
C3BPG8040 
CSUPG8050 
CSBPGP060 
CSBPGG070 
C5 BPG8C80 
CSEPG8C90 
CSBPG8100 
CSBPG8110 
CS3PG812C 
csEpaeuc 
s Bpca 140 
SBPG8150 
SBPG8160 
S3PG8  r 0 
3BPG8  180 
SBPG8190 
SPPG8  200 
SBPGR210 
SBPG822C 
SPPG8230 
SEPG8240 
SEPG8250 
SRPG8260 
r>BPc;8  270 
SBPG8280 
SBPGB290 
S BPG8300 
SPPGB3  10 
SBPG8  32C 
SPPG8330 
SBPG8.340 
SPPG8350 
5PPGR350 
SPPG3  370 
■ SBT'GB  3«0 
SPPG8:i9C 
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non  o non 


2345 


4334 


B498 

8499 


TQFB R=-FF (PF)  ' SBPG8400 

CONTINUE  SBPG8410 

IF  (PABA^I  ( 193)  . NE.O  . 0)  DELSWC  = C.  0174512  9♦‘{PAPA^1  { 1 94)  ♦YOUT+PAFA  M (195)  SBPGB420 


I *¥0?) 

PTB 1=PTBR 
PTB2=PTBR 


S BPG8430 
SBPG844C 
SPPG8450 


AKK1  = l’.0 
AKK2=1.0 

IF(PARAN  (60)  .FO. 1. 0)  GO  TO  4334 
CALL  PTBAK(RETM,FR1  ,AKK1,  PTB1) 

CALL  PTBAF(BETA2,FR2 ,AFK2,PTB2) 

CONTINUE 

AMT1  = FXU1*(PTB1<‘SrNPS1-YSAlECOSPSl-Zl*  (PHI1*COSPS  1-PHS  1)  ) 

♦ FYU1E  (-PTP1*AKK1*C0SPS1-YSA1*STNPS1-Z1* (PH  II* STNPS  1-THS1 ) ) 
-FF1 * (-PTP1* (PHS 1*C0SPS1+THS1*SINPS1)  +YSA 1 * (THS 1 *C0SPS1- 

PHS 1*SI N?S1) -Z 1* (PH Si *PH II* SIN PS 1-T HS 1* P H 1 1 *COS PS  1 ) ) 

AMT2  = FX02*(PTE2*SINPS2-¥S A2*COSPS2-Z2*  (PH I2*COSP3  2-PHS2) ) 

♦ FYU2*  (-PTP2*AKK2*COSPS2- YSA2*SINPS2-Z2* (PHI2*  STNPS2-THS2)  ) 
-FR2*  (-PTP2*  (PHS2*COSPS2*THS2*SINPS2)  ♦YSA2*  (THS2*COSPS2- 

PHS2*SINPS2)  -Z2*  (PHS  2*PH  12*  SINPS2-T  HS2*P  H'T2  *COSPS2)  ) 

AHT1  - SMMT*APm 
AHT2  = SWnT*APT2 

NNN=PARAH  ( 1 98  ) / (PA  R A « (7  5)  *UOUT)  <-0,5 
XI  (1)  =X0  0T*A*C7.-TF02*SN 
XT  (2)  = X0UT+A*CZ«-TF02*SN 
XT  (3) =X0UT-P*CZ-TR02*SN 
XT  (4) =XO0T-B*CZ  + TRO2*SN 


SRPG8460 

SBPG847C 

SPPG8480 

SBPG8490 

SBPGRSCn 

SBPG8S10 

SRPGR520 

SPPG8530 

SBPG3540 

SBPG8550 

SBPG8560 

SBPG8570 

SBPG8580 

SBPG8590 

SBPG8600 

SBPG8610 

SBPG862C 

SRPG863'^ 

SBPG8640 

SBPG86S0 

SBPG8660 


NBHP=PAnAM  (277)  5 

IF(NBI1P,  EQ.  0)  GO  TO  8499 
DO  8498  T=1,4 

DELX (I) =GETDEI ( XI , I , P AR AH  (200 ) , NB « P) 
GETDL  = GETDL  DELX  (I) 


SBPG8670 

SPPG8680 

SRPG8690 

SBPG8700 

SBPG8710 


CONTINUE 

CONTINUE 

CALCULATION  OF  ANTI  PITCH  AND  ROIL  FORCES 
FOR  SOLID  AXLF  DEL3  IS  REAR  AXLF  VERTICAL  hOLL  C’ENTE? 
DL3S  AND  DL4S  ARE  REAP  WHEEL  SUS^’ENSION  DEFLECTIONS 
CP1F*DL1S  + CP2F*DL1S*DL1S)  * FXir(1) 
CP1E*DL2S  ♦ CP2?*DI.2S*rL2S) 

CP1P*PL3S  *■  CP2P*DL3S*nL'-!S) 

CP1R*DL4S  ♦ CP2R*nL4S*DL4S) 

■ CP1F*CL1S  CR2T"*PL  1S*0L1S) 


f CP2 F*nL2S*nL2S ) 
CP2R*DL3  3S  ) 
* CR2P*nL43*"'L4S) 


API  = (CPOF  -*■ 

AP2  = (CPO^  ♦ 

AP3  = (CPOP  4- 

AP4  = (CPCR  + 

AH1  = - (CROP 

AP2  = (CROP  <■  CR1F*DL2S 
AR,  = -(CROP  > CH1R*’'L3S 
AR4  = (CK08  + CR1P.*CL4S 

ANTI1  = API  4-  AR1  - FBS1 

ANTI?  = AP2  + AP2  - FPS2 

ANTI1  = AP3  ♦ \R3  - FBS3 

ANTI4  = AF4  *■  ^R4  - FBS4 

LONGITUDINAL  AND  LATERAL 
FTAX=  (nDTOUT-VOfJT*ROFJT4-WmiT*OOUT)  /38B.  4 
FTAL=  (VDTCTIT+  FO  U T*  00  UT- WO  UT  * pfDiT)  / U 

BTV= VOUT/nOUT 

RTVDl-  (UOrjT^VDTOflT-l  OUT*UD‘T’niJT)  / ( UOUT*  UOIJ  T) . 


EX  OT  (3) 
EXU  ' ( 3) 
FXTJT  (4) 


^ YOT  (1) 
PY^TT  (2) 
vydt  (I) 
P VOX  (4) 


ACCELERATION  CALCULATION 


0,NEP=  (ROUT4- DTVnT)  /SO  C-'T  ( OO'I  T ♦ * 2 + V'Dl’T*  ♦ 7 ) 
COMPARISON  VAi'.IABLF,  CATA  COLLFCT,ION 
IF(TVHTP.GT.2)  GO  TO  4C 2 ' ’ 

COMPARISON  VAFTABL'^S  FOR  VHT-^  « 1 
AXAVF  = AV^RA. '-E  LONGITUDINAL  D^CJIFRATION 
TF(O.GT.  (UTN- '^^8.  ) ) OC  TO  40C  . 


SFPG872C 
SBPG8710 
SBPG874C 
SBPG8750 
SBPG8760 
SBPG877C 
S PPG8780 
S BPG8790 
S BPG8800 
SBPG88  10 
S BPGBR20 
S PPGB830 
S BPG8  84C 
SPPG8B50 
SRPG8860 
SBPG8870 
S PPG8880 
SPPG889C 
SBPG890^ 
SBPGRgK 
SPPG«920 
S B PG  8 9 3 0 
SBPG8940 
SBPG8950 
SDPG896F 

SPPG8970 

3BPG8980 
S BP  G8  9 70 
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A XI  = AX  I ♦ ETAX 

SBPG4000 

GO  TO  401 

SFPG9010 

400 

TIKIN5  = TIHE 

3 BP GUO 20 

401 

CONTINUE 

SBPG9  03.0 

TI«DEC  = TIME  - TIMIN5 

- 

SRPG9040 

402 

CONTINUE 

SPPG9  05.C 

IP(IVHTP. NE.2)  GO  TO  412 

SBPG9060 

C 

VHTP  #2  CCHPAEI550N  VARIABLES 

SBPG9070 

c 

AVERAGE  PATH  CURVATURE  RATIO  , CUVRAT 

SBPG9080 

c 

AVERAGE  LONGITUDINAL  DECELERATION,  AXAVE 

SBPG9090 

c 

PEAK  BODY  SIDESLIP  RATE,  BETDMX 

S3PG9100 

IF  (TIKB.LT.CGAM)  GO  TO  410 

SBPG9110 

IF(  TIME. GT. (OGAM  ♦ 1.))  GO  TO  411  . 

SBPG9 120 

CURVAV  = CURVAV  ♦ ONER  '■ 

SBPG91 30 

ABBTV  = AES  (BTV) 

SBPG9140 

ABTVDT  = ABS(BTVDT) 

SBPG9 150 

TF(ABBTV. GT.BETAMX)  BETAMX  = ABBTV 

SBPG9 160 

IF (ABTVDT. GT. BETDMX)  BETDMX  = ABTVDT 

SBPG9170 

GO  TO  41 1 

SBPG9  180 

410 

CURTBP  = ONER 

SBPG9  19C 

411 

CONTINUE 

SBPG9200 

412 

CONTINUE 

S P P G 9 2 1 0 

IB  (TVHTP.  NE. 3)  GO  TO  422 

SBPG922C 

C 

VHTP  «3 

SBPG923C 

IF((GETDL.LE,0.)  .AND.  (JUMP. EQ.O) ) GO  TO  420 

SDPG9240 

IF  (TIME.  GT.  (TIMRHP  + 1))  GO  TO  421 

SBPG925C 

JUMP  =1 

SBPG9260 

CURVAV  = CURVAV  ♦ ONER 

SBPG9270 

ABTVDT  = ABS(PTVDT) 

SBPG9280 

ABBTV  = ABS(BTV) 

SPPG92‘10 

IF  (ABTVDT. GT.  BETDMX)  BETDMX  = ABTVDT 

SRPG9300 

TF(ABBTV.GT.BFTAMX)  EETAMX  = ABBTV 

SDPG9310 

GO  TO  421 

SBPG9320 

420 

CURTBP  = ONER 

SBPG933C 

TIHBMP  = TIME 

SBPG9  340 

421 

CONTINUE 

SBPG9 ISO 

422 

CONTINUE 

SBPG936C 

IF  (IVHTP. NE. 4)  GO  TO  432 

S3PG937(: 

C 

VHTP  #4  COMPARISON  VARIABLES 

S3PG9  330 

IF  (TIME.  LT.  TST)  GO  TO  430 

S PPG9  390 

IF(TIME.GT.  (TST  ♦ 2.))  GO  TO  431 

SPPG9400 

CURVAV  = CURVAV  ONER 

S PPG94 10 

ABTVDT  = ABS(BTVDT) 

SBPG9a20 

ABBTV  = ABS(PTV) 

SBPG'5  4 30 

IF( ABTVDT. GT. PFTDMX)  BETDMX  = ABTVDT 

SBPG9440 

IF  (ABBTV . GT.BFTAMX)  BFTAMX  = ABBTV 

5BPG94S0 

DELEFT  = BETAMX  - BFTA 

SPPG9460 

GO  TO  431 

S3PG9470 

430 

PFTA  = 3TV 

S3PG9480 

431 

CONTINUE 

S3PG949P 

432 

CONTINUE 

SBPG9SO0 

IF  (I VHTP.  NR. 5)  GO  TO  442 

SRPG9510 

C 

VHTP  AS  COMPARISON  VARIABLES 

SPPG9520 

IF (TIME. GT. 3. 4)  GO  TO  4S0  • 

SBPG9530 

IF(DSW.GT.O)  GO  TO  460 

SPPG9S40 

DELSTR=  DELSTP  + ABS(Y  ♦ 144.) 

SDPGPSSP' 

GO  TO  461 

SBPG9S60 

460 

CONTINUE 

SBPG957C 

DRLSTP=DEL3TR  + ABS(Y  - 144.) 

SRPG9S30 

46  1 

CONTTNIIE 

3 RPG9S90 

\ 
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ABBTV  = RES(BT'/) 

IF  (ABBTV. GT.BETAMX)  BETAMX  = ABBTV  ' 

DELPSI  = PSI 
450  CONTINUE 
442  CONTINUE 

C VHTP  #6  COMPAFISON  VAPIABI.E 

IF  (ABS  (PHI)  .GT.  PHIHAX)  PHIM  AX  = ABS(PHI) 

IF(ARS  (PHIDT)  . GT.  PHIDMX)  PHIDHX  = ABS(PHT!)T) 

IF(ABS(ETAL)  .GT.  AYHAX)  AYMAX=  ABS(FTAL) 

IF  (ABS  (fi)  .GT.  AX)  RMAX  = ABS(P) 

FXL1=A«L  1*RRIM*ARPS1 ♦ARPS1  *HCTH1 
FXL2=AHL2*P3I«* ARPS2*ARPS2*UCTH2 
FZL1=AML1 ♦RRIK* ARPS  1 ♦ARPS 1*HSTH1 
FZL2=AHI2^RBIN*ARPS2*ARPS2*WSTH2 
C PREPARATION  OF  VARIABLES  TO  BE  OUTPUT  ON  D/A  CONVERTERS 

TEHP  = (ANTI  + ALTQ(1))  / AIFH  - RDTOUT 
TEHP=TENP+  (-FXL1*(YSAURHR/2.0)  )/AIFW 
IOUT(01)=-  TErP^SFOUT  (9)  ♦PAHAH  (175) 

TEHP=RZF  + ZOnT-  \*THEOnT4-TFO2*PHIO0T 
TEnP=TEMP-DELX  (1) 

TOUT  (02)  =TEMP*SFOOT(  10) 

TEHP  = (AHT2  + ALTQ(2))/  AIFW  - RDTOUT 
TEHP=TEHP+  (-FXL2*  ( YS  A2*RH R/2 . 0 ) )/AIFW 
TOUT  (0  3)  =-  TEEP*SFOUT(9)  ♦PAR AM  ( 17  5) 
TEHP=RZF+Z0UT-A*THEOUT-TFO2*PHIOUT 
TEMP=TEHP“DELX (2) 
lOUT  (04)  -TEMP*SFOUT( 10) 

TEHP=  (AM21-AN1 1)  *0.  05 

lOUT  (05)  =TEMP 

TH1  = TF02’«‘PDT01IT 

TH2= A*QDTCUT 

TH3=CIP 

TEMP=-TH 1+TH2+rH3-FYU1*SPSR3 
I OUT  (06)  =TEMP*SFOUT( 1 4)  ♦ P AP A H ( 1 75 ) , 

TEHP=  (AH22-AF12) ♦O. C5 
lOUT  (07)  =TEHP 

TEHP=  TH-1 +TM2+TH3^FYU2*SPSR  1 
TOUT  (OB)  = TEMPOS POUT (14)  ♦P  AR  AH  ( 175) 

TOUT  (09)  =-TQFFR^0. 25^SPOUT ( 14) 
lOUT  (10)  =-TQRPR*0.25*SFOUT ( 14) 

TOUT  (1  1)  =DELSI*:C/1C  .0  ^ . 

TOUT  (12)  = 0 ‘ • 

TFMP=  (-TR02-Z^’*'PHIP.) 

lOUT  (13)  =TEMP<  S'^OUT  ( 25)  ♦PARA.H  ( 175) 

TEMP=CIVP-B^QLTnUT • 

IOUT(14)=  TEHPfSFOUT  ( 14)  ♦PAPAH  (175)  i 

TSHP=  (TR02-Z4*p'hIR)  ‘ 

lOUT  ( 15)  =TPHP*ST^O(JT  (27)  *PAR  AH  ( 175) 

TEMP  = -PDTOUT-  (FYU3+  (T  RO  2«  PH  I R- Z 3)  +FY  !J4  ♦ (- T?02*  P5IR-Z4)  ) /AIR 
TEHP  = TEHP  -^'  ( ( FYU3  ♦FYU4)  ♦URC  - rOTH)/AIP 
TOUT  (16) =TEHP*S^OUT (28)  ♦PARAH  (175) 

TEHP=  (AH23“A«  1 3)  ♦0.  05  ’ - 

TOUT  ( 1 7)  =TEMP  , ' ' ’ 

TEHP=  {RZa^Z0UTtB^THECUT  + PHIOUT«TRO2)  ' 

TEHP  = TEHP-DELX  (3)  '■,■■■  ■ 

TOUT  (1  8)  =TFMP«SFOUT(  10) 

TEMP=  (AH24-AE14) ♦0. 05 

lOUT  (19)  =TEHP  ' ■ ■ 

TEHP=  (RZR  f ZOU1  •»-B*THECUT-PHI0UT*TH02) 

TEMP=TEHP-DELX (4) 


'SBPG9600 
SBPG9610 
SBPG9620 
SBPG9  6 30 
SBPG9640 
SBPG9650 
SBPG966C 
SBPG867C 
5BPG9680 
SBPG969C 
SBPG9700 
SBPG9710 
SBPG972C 
SBPG973C 
SBPG9740 
SBPG975C 
SBPG9760 
SBPG977C 
SBPG9780 
SBPG9790 
SBPG9R00 
SBPG981C 
SBPG9820 
SBPG9H30 
SBPG9B40 
SBPG9H5F 
SRPG986C 
S BPG9870 
SBPG9880 
SBPG989C 
S.BPG9  900 
SBPG9910 
S BPG9  920 
SBPG993C 
SBPG«940 
SBPG995C 
SBPG9960 
S5PG4G70 
SBPG9980 
SEPG999C 
S BPGOOOO 
SRPG001 0 
S BPGC  020 
SPPG0030 
SB';’ GO  040 
SBPGO050 
SBPG0060 
SBPGCOTC 
SPPG0080 
SB!5g009C 
SBPGO  100 
S BPGO 1 1 0 
SPPGO  120 
SBPGO  1 30 
SPPGC140 
SPPGO 1 50 
SBPGO loO 
SB^GC 170 
SPPGO  180 
SBPGO  190 
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THOT  (20)  rPOUT  ( 10) 

IOUT(21)  = U01«0.05 
TOUT  (22)  = U02*0.05 

IOUT(23)  = Aai1*.05 
IOOT(29)  = AMl2*oOS 
TOOT  (2  5)  =UG1P*3FO[JK  37) 
lOUT  (26)  =DG2P*3FOUT(37) 
lOUT  (27)  =DG3P*3FOUT  (37) 

IOOT(24)  =DG4P*SFODT(37) 

TOUT  (28)  = U03*.05 
TOUT  (30)  = U04*.05 
IOUT(31)  = AH13*.05 
TOUT  (32)  = AH  14*. 05 
IOOT(33)  = -ST1 
IOUT(34)  = -SI2 
TOOT  (35)  = -ST3 

TOUT  (36)  = -SI4 
TOUT  (37) =0 

TF(IAX.EQ.I) GO  TO  77  19 

TEHP  =G*  (1  . + A^AHS/  (AMUR^'  (A+B)  ) ) - B^QDTOO  T-TRO  2 ’»?  DTOOT 

1 -FY03*SPSP4 

TOUT  (12)  =TEMP=> SPOUT  ( 14)  *PA RAH  { 175) 

TEHP  =G* ( 1 . +A^AHS/  (AMUR*  (A+B)  ) ) -B*0DTOUT+TRO2*PDTOUT 
1 +FYU4*SPSR4 


TOUT  (37)  = TEMP* SPOUT (14)  *PARAM  ( 175) 

TOUT  (13)  =C 
TOUT  (16)  =0 
CONTINUE 

I?  (UOUT.  gE.  25. 0*52  80  .*12.0/360  0.0)  TIHE25  = TIHE 
IF  (UOUT.  GE.  10  .«3*52  8C  .*12.0/3600.0)  TIHE10  = TIHE 
TFMPE=ABS  (ROUT*57.  29578) 

IF(TEMPE. GT.RFAX) RMAX=TEHPE 
TEHPE=AUS (ETAL) 

IF  <TEHPE. GT. ET\MAX) RTAMAX=TEM?E 
TEHPE=ABS  (PHICUT*57.  29578) 

IF(TFMPE .GT.PRrMAX) PPIMAX=TEMPE 
TEMPE=ABS  (DELS's4C*57.  2957a) 

IF(TEMPE. OT.DS^MAX) nSWHAX=TEHPE 
IF  (TIME. LF. 5. 0) PSI5=  PSIOUT*57.  29578 
DO  3147  1=1,48 

DACO  (I)  =BVAI.UF  (DACPLA  (I)  ) /SCALDC(I) 

SPACC=nACO  (T) 

DACO  (I)  = .\MAX1  ( - . 99  95  , (AMIN  1 (.  9 995  , DACO  {!)))) 
IF  (S TACO. FQ. DPCO  (I) ) GO  TO  8317 
TDACK=TDACK4-1 


IF  (IDACK .GT. 1 0 IDACK  = 10 
IFPPAC  (IDACK)  = I 
TER  D AC  (TDACK)  = TIMF 
8317  CONTINUE 
3147  CONTINUE 

I'=’(AF.S  (PS  TOUT)  .GT,  ABS(PSTM)  ) PSTM=PSIOU'^ 
TEM  PE=ABS  (TORPR) 

IF (TEMPE. GT.TQRMAX) TORMAX=TFHPF 
TEMPE  = ABS  (TQFFR) 

IF  (TEMPE  . GT.TO^MAX)  T0FMAX  = TFMPF. 

TEHPE= ABS (PSirUT) 

IF  (TEMPE  .GT.PSTMAX)  PSIMAX=TEMPE‘ 

NUMBR  = NUMPR  *■  1 

C DATA  COLEECTICN  FOR  TRACK  OPTION 

TF(TIMF.  LT.  (ONTTM-.C0001) ) GO  TO  8185 


S3PG0200 

SBPG0210 

SBPG0220 

S BP  GO  2 30 

SBPGG240 

SBPG0250 

SBPG0260 

SBPG0270 

SBPG0280 

SBPG0290 

SBPG0300 

SBPG0310 

SBPG0320  ' 

SBPG033C 

SBPG0340 

SBPG0  350  .. 

SBPG0360 

SPPG0370 

SBPG0380 

SBPG0390 

SBPG0400 

SBPG0410 

SPPG0420 

SBPG0430 

SPPGC440 

S3PG0450 

SBPG0460 

SBPG0470 

SBPG0480 

SBPG0490 

SBPG0500 

SBPG051C 

SBPG0520 

SBPG0530 

SBPG0540 

SPPGO5S0 

SBPG0  560 

SBPG057C 

SBPGC58C 

SBPG0590 

SBPG0600 

SBPG0610  • 

SBPG0620 

SBPG0630 

SBPG064C 

SBPG065C 

SPPG066C 

SBPGQ670 

SBPG0680 

SBPG0690 

SBPGC700 

SBPG071C 

SPPG0720 

SBPG073C 

SBPG0740 

SBPG0750 

SBPG076C 

SBPG077C 

SBPGC78C 

SRPG0790 


160 


' • • "IF  (TIME.GT".GFFTIH>.^GO  - 

IKFFP=IKEEP+1 

IF  (IKEEP. NE. ISA1P)  GOTO  8185 
IKEEP=0 

DO  8199  I=1,ITPA 
J = TTP.AA  (I) 

JIN=JIN+ 1 

IF  (JIN. GT.  3999)  JIN=3999 
ATRACK  (JIN)  =BVA  LUE  (J) 

8199  CONTINUE 
8195  CONTINUE 
RETURN 
> END 


SBPG0800 

SBPG0810 

SBPGC82C 

5BPG0830 

SBPG0840 

SBPG0850 

SBPG086C 

SBPG0870 

SBPG0880 

SBPG0890 

SBPG0900 

SBPG0910 

SBPG0920 


or 

0'<^>HC\^  <$it  :?^- 
Oc'‘r-Oi\<}:i'^5;:' 
^?>'-=7vr^ 

Of 

5';,'j4v,»'f  r ■''■ 

•O'Ov'O': 

Ckf,pT;''^.i,;^ 

(>■:.  eO'  ^f»;; 


2.1.5 


VHTPIC 


PRESENTED  HERE  IS  THE  FORTRAN  LISTING  FOR  THE  VHTP 
INITIALIZATION  SUBPROGRAM.  THE  APPROPRIATE  ELE- 
MENTS OF  THE  PARAM  ARRAY  ARE  INITIALIZED  IN  VHTPIC' 
FOR  PERFORMANCE  OF  THE  SELECTED  VHTP. 
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non 


1 = 1,7)  , J=  1,NfJ?lPR«) 


SHBROnriNE  VHT?IC 
SDBRCUTTNE  VHT^IC 

THIS  SUBROUTINE  INITIALIZES  FOR  A VHTP  MANEUVER 
con « ON/S P7BLK/N1 ,N2, I POT (120)  ,IPOTAD( 12^)  , PARAH  (40C) 
BEAL*4  VHTPAS  (27,7) 

INTEGER*4  PARMNO(27) ,SAVF/1/, NUNPRH/27/ 

INTEGER*4  IONE/0/ 

IF  (TONE. GE, 1)  GO  TO  40 
ICDRD  = 1 

READ  (ICDRC,  IOC)  (PAEnNO(J)  , (VHTPAR(J,I) 

100  FORMAT  (13, IX,  7E1  0.3) 

TONE  = lONE  «•  1 
40  CONTINUE 

I = IFTX  (PARAM  (129))  + 1 

IF  (I. EQ.  1)  GO  ^0  10 

IF(  (I.GE.  2)  .AND.  (SAVE.NE.  1)  ) GO  TO  10 
IF  I = 1 ORIGINAL  DATA  BUST  BE  RESTORED 
IF  IIS  NOT  = 1 MUST  DFCIDE  TO  STORE  DATA 
IP  I NE  1 AND  OLD  I NE  1 DO  NOT  STORE 
DO  20  J=1  ,NOnPRM 
VHTPAR(J,1)  = PAPAM  {PARMN^  (J)  ) 

20  CONTINUE 
10  CONTINUE 

DO  30  J=1,NUHPRM 
PARA  f1  (PAR  MNO  (J)  ) = VfiTPARfJ,!) 

30  CONTINUE 


SAVE  = PARAM(129) 

IF  (PAPAM  ( 129)  . EQ.4) 
I?  (PARAM  (129)  .EO. 5) 
1 / (PAFAM  (66) ♦38.) 

IF  (PARAM  (129)  .EQ.6) 
1 / 7.5 
P ETURN 
END 


PARAM  (1  14)  =PAP  AM  (42)  * { (PAR  A*"  (6)  ♦PARAM  (7)  ) ) /60 
PAP  An  (1  23)  =6  6.«  (PARAM  (6)  ♦P  A ’’A  M (7)  ) ♦PARAM  ( 42) 

PARAM  (123) =PAPAM  (42) * (PARAM  (6)  ♦ PAR  AM  (7)  ) 


VHTP 

VHTP 

VHTP 

V HTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 
VHTP 

V HTP 
VHTP 

V HTP 
VHTP 

, VHTP 
VHTP 
VHTP 

V HTP 
VHTP 
VHTP 
VHTP 


10 

20 

30 

40 

50 

60 

70 

BO 

90 

IOC 

110 

120 

13C 

14C 

150 

160 

17C 

1BC 

190 

20C 

21^ 

220 

230 

240 

2 5C 
260 
270 
280 
290 
300 
31C 
320 

3 30 
340 


( 

I 

I 

1 

' ; 


1 
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or 

^ qW'"^ 

' if  e V 

rr 

01' KV 

OiS 

.f 

■ ‘Xfwy 
a: y 

Od 

■ C»T 

, «i.Tav 

<Jf‘f 

O'TB  V 
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OTji  V 
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0^  r 
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vs'r. 
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,'5^'’’^'  V 

r>'V** 
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‘JTH.V  i 

-,.TM  V 
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f‘'V'.'’ 

■fi-' 

j,a 
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t|.Ti<  V 

,,  .«.::  '"  lu  ..  ; 1 
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a Htt«  «(!?»■ 
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OT.vOO'  Uf -sii^‘3VAv?|,ijnt#A^-.<r4ta.'X) ''ll  ' 
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■ ■'•■  -csoiftlfinC):)  Qt 
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1 , 6 CI-IPVAR 

PRESENTED  HERE  IS  THE  FORTRAN  LISTING  FOR  THE  COM- 
PARISON VARIABLE  (CV)  CALCULATION  SUBPROGRAM.  THE 
CALCULATION  AND  OUTPUT  OF  THE  CV ' S ARE  PERFORMED  IN 
CMPVAR  FOLLOWING  EACH  SIMULATION  RUN. 


167 


r 


9.  I 

*101 

.i'-w"'  <.  • 


SI  ^'sli 't:i^TH3,eK:a^ 

V. 


A-'l"  ;.,  ■ ^-1  ','^1 

■ .'  c>A  vk: ''^ 


li'A-! . "'  . ^T'A3.  £f^mM:rs*i 


'14'. 


c FrJBROUTINE  CNT'/AR  ...  CBPV 

SUBROUTINE  CMF7AR  C'lPV 

C THIS  SUBROUTINE  CALCULATES  THE  COHLAPISON  VARIABLES  CWPV 

COMB ON/COM VAR/  AX  A V F , CU VR AT , BETDM X ,C UP TBP , TIM  DEC, JUMP ,D£L3TP , DDL,  CMPV 
1 AXI,CURVAV,ABPTV,AYNAX,P«AX,rELBFT,DELPSI,PETA«X,  CKPV 

1 TIMBMP,GETDL,TIHIN5,  DT,  IVRTP  CMPV 

COSflOM/THINGS/T*lAX1,  TMAX2,THAX3,TQRWA.X,TQFMAX,  PSIHAX,ONFR  CNPV 

COMnON/NEWER/TrME25,TIM£10,PST5,PHIMaX,D3WP!AX  CMPV 

DATA  CURV 1G/. r0078/  CMPV 

DATA  LPTR/2/  C1PV 

C CALCULATION  OF  COMPARISON  VARTABLRS  ' CMPV 

IF (TIMDEC  ,EQ. 0.)  TIM DEC= . S 0 000 000  1 CFPV 

IF (CURTBP. EQ. C.  ) CU RTBP= . 0000 000 1 CNPV 

GO  TO(1,2,3,4,5,6) , TVHTP  CMPV 

AXAVE  = AXI*DT/TIMDFC  CMPV 

GO  TO  10  CMPV 

1 CONTINUE  CMPV 

AXAVF  = AXT*DT/TTMDEC  CMPV 

GO  TO  10  C**PV 

2 CONTINUE  CMPV 

AXAVE  = AXI^OT/TIMDEC  CMPV 

CUVRAT  = CtlPVAV  ♦ DI/CURTPP  CMPV 

GO  TO  10  CMPV 

3 CONTINUE  CMPV 

CUVRAT  = CURV5V  * DT/CURT iP  CMPV 

GO  TO  10  CMPV 

4 CONTINUE  CMPV 

CUVRAT  = CURVAV«.5*PT/CURV1G  CMPV 

GO  TO  10  CMPV 

5 CONTINUE  CMPV 

DEL=  (DELSTR*rT/3. 4) /12 . • CMPV 

6 CONTINUE  CMPV 

10  CONTINUE  CMPV 

RMAX  - RMAX/S"^.  3 CMPV 

WRITE  (LPTP,  23  B5)  A X A VE  , TI  M RFC  , CUV  F AT  , FF-^D  M X , 3 FT  \MX,  DELBFT,  CMPV 

1AYMAX,PHIMAX,PMAX,D’"  [ , DFJ.PS  I , DS  WM  AX,  TgFM  A X , TgRw  AX  CMPV 

2345  FORMAT(»0  AXA  V=  » , FB.  3 , • OECL  T T M [■;=  * , F 8 . 3 , ’ AVCU  • , FH  . 3 , ' BTDMAX=*CMPV 

1,F0.3,»  BTMAX=* , F8 . 3 , • D EL BT= • , F 3 . 3/  CMPV 

1 ' 0AYMAX=  • ,F8.  ' PHI  M AX^  • , FH,  3 , * F''.  A X = ' , H . 3 , • LANFCHNG  OEL=  * , CMPV 

1F3.3,'  OELPSI , F8 .3 , • MAX  STEF F=  ' , E 8 . 3 / CMPV 

1 *0"^TRQMAX  = * ,F^-.  3,  ' F TRQM  A X=  * , . 3/)  CMPV 

RETURN  CMPV 

END  CWDV 


10 

2C 

30 

40 

50 

60 

70 

80 

90 

IOC 

110 

120 

1 30 
140 
150 
160 
17C 
1BC 
19P 
20  r 
21C 
220 
23C 
240 
250 
260 
27C 
28C 

2 90 
300 
3 1C 
320 
330 
340 
350 

3 6P 
370 
3R0 
390 
400 
410 
420 
430 
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2.1.7  RTMON 

PRESENTED  HERE  IS  THE  FORTRAN  LISTING  FOR  THE  REAL- 
TIME MODE  INITIALIZATION  SUBPROGRAM.  THE  FOLLOWING 
IS  PERFORMED  IN  RTMON: 

1)  Initialization  of  order  programs  to  perform 
real-time  input/output. 

2)  Initiation  of  simulation  runs. 

3)  Suspension  of  the  simulation's  OS  processing 
until  the  real-time  processing  is 
completed. 
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V;n.n^-iO.^;, •^S.U'r  ITASUAX:?!*!!^ 

fhowm  tji 

■-  ■ :.Hq  vt''.!  ,i,; 

. ■j4j'q‘'-< i>o\ ,."4nd  j - '; . 


■ i'S^C-OTS'v^  ■ t* ■;■  '■  ■ ?'RO  ^s.s  j ilh-j,9  9/ii  ..’to  ; ^ca^^or^jcfa  'Clfef' 

.a.*:.  K ^ 


c 

c 


THE  OPEPATTCN 


,ICRB 

,PILP' 


,OPH3 


1 


SUBROUTINE  RTKv.'N  . . • ...  , 

SUBROUTINE  PTH.'N. 

THIS  SUBRCUTINF,  INITIALIZES  FOP  R^AL 
COnnON/APL/  OPEN  ,PISW  ,LDTSW  ,RBSW 
COHHON  /REBLK/  AD2RB  ,AD1PB  ,CLSRR  ,CLRFB. 

CONPION  /RPBLK/  TCNBU  F,TIHPUF,  LDARB  ,TDAPB 
COHHON/RBBLK/STRB05,RLPB05 

COKMON  /ECBBLK/PILECB,TCNECB,TTNECB, ADAECB^TDA  FCP 
COnnON  /ECBDLK/AD2ECE,  AD1FCB,CLSECB,CLRECB,ICFC*'  ,OPECB 
COHHON  /ECBBLK/OSECP  ,DONECB 
COnKON/ECBBLK/.^ECBS  ,RLECP5 

COnHON/TNOUT/I'!  A (3  2)  , TOUT  A (4  8)  ,IN  (32)  , ICUT  (43)  , TJW1  ,ISW7,3FIN  (3  ’) 
1 SFOOT  (48)  ,IPRT, ITMP (48) 


RTHO 
RTHO 
R TM  0 
PTHO 
RTHO 
RTHO 
RTHO 
R T HO 
RTHO 
PTHO 
PTHO 
,PTHO 
PT'HO 


IF{  RFSW 
CALL 
CALL 
CALL 
CALL  . 
CALL 
CALL 
CALL 
C ALL' 
CALI 
CALL 
CALL 
CALL 
CALI 
OPDN 


. E0.1  ) CO  TC  2 CO 
B.LJCB  f • J0C7  * ,OSECB,  NU  HEVT  ,.NO'!  F 
DFFEP  ( I NIT,  SAVED ,ZEPO, ’NONE* 
DF^FP  ( ENDRUN, SAVE1 ,ZFPG, • NON” » 


> 

♦ NO 


9 n « 

¥ ' ■ 

NO  ’ ) 


DEFEP  ( CAPT, SAVE2,ZERO,  'NONF* 

CRBCpF ( FI ,L  1,ADC 1 , AB1PP, API ECB,CCNSL 
CPBCRBf  F2,L2,  ADC2,  Ar2.RB,  A D2 ’=:CB,C  ONSL 
TLDAPE(  TDAP B,TPA^CB,CCNSL  ) 

SSCLRP(  SCLD ,CLSNn,CLSFCB,CONSL  ). 

S SC LR  P ( SCL  C 5 ^ SL  P BO 5 , SL  FCB  S , CO  :J  ST.) 
RSCLR^f  PCLO  ,CI.PHB,  CL’’FCa,CONSL  )' 
RSCLRF (RCLOS , FL R BC 5 , RL FC35, CO N SI ) 
SAHOPB(  IHOPIC^IC"  ?^TCFCB,CONC.L  ) 
3AH0RP(  IHOPOP,OPPR,OPFrB^C'^NSL  ) 

■ = 0 


10 
20 
30 
4 0 
SC 
. 60 
70 
80 
90 
K'O 
1 10 
120 
1 10 


P T M 0 

1 40 

REAL*8 

PILRB  (3) 

,LDA^P(2.3)  ,'^CNBUF(H) 

KTHO 

ISO 

REAL*8 

TINBUF  (8) 

? T'lO 

1t)0 

BEALH8 

S AVF2 ( 16) 

,PILPB1  (3) 

, AD2RB  (6)  , ADI’^3  (6) 

RTMC 

170 

REALMS 

CLFRH (6) 

,OPRB  (6) 

,TPARP  (6) 

RTMQ 

1 80 

REAL*8 

S AVEO (16) 

,SAVE1 (16) 

,CLSRB(6)  /tCRB{6) 

P THO 

19C 

REALMS  SLRB05 (6) , PLRB05 (6) 

RT'^0 

20  0 

PT«0 

210 

REAL^U 

lOUT  ,IN 

, ITHP 

R T H 0 

220 

FEAL*4 

ADC2  (04) 

, ADC1  (24) 

P T^  0 

2.30 

RTEO 

240 

INTEGEP*4 

TCNECB 

, T I .H  FC  P 

BTHO 

250 

INTEGFR*4 

CONSL/01/ 

, PILECB 

,ADAFCE  ,TDAEC3 

RTHO 

2 60 

INTFGER^a 

aCLO/OO/ 

, CLR  ECB 

,IEOrOP/:4/  ,OPECL 

RTEO 

270 

TNTEGER*^ 

P2/20/ 

rL2/23/ 

,FTPST/0(V  , I. AST/47/ 

RT.MO 

280 

INTEGFH*4 

NONE/00/ 

,Ar2EC^'  ,«D1ECB 

RTHO 

2 90 

INTEGEP.«4 

SCT.O/00/ 

,CLSECB 

,INCDIC/06/  ,:CECP 

p'TSWQ 

.3  00 

INTEGER«4 

*ONE/-  1/ 

,F1/0C/ 

,11/23/ 

BT'”0 

310 

INTEGER*4 

TDAEC3 

p'TM  Q 

3 20 

INTEGEP*4 

OSECB 

,DONF.CP 

p w 0 

330 

INTFGPR*4 

SCL05/5/,  RCLC5/5/,SI.FCP 

5,  P L'^'CB  5 

RTNO 

.340 

FTWO 

3 50 

INTPGER*2 

NUHEVT/03/ 

,2FRO/''0/ 

PTMO 

360 

INTEGEP»2 

UNIT/1  9/ 

' 

R H 0 

370 

INTEGER*2 

TWO/ "2/ 

S'  <v  f.':  n 

380 

INTEGER*.? 

a TOW  ,RBSW 

,LOTSW  ,0 

,OpT;>! 

RT'-'O 

3 90 

R T N 0 

400 

EQU  VALENCE  ( A OC  1 ( 24 ) , IN  { 2 4 ) ) 

, (ADC2(  1)  ,1N  (.^-)  ) 

R'r'lO 

410 

D TIVI  Q 

420 

EXTERNAL 

IN  IT,  CART  ^^NTFIIN, 

r;vBTN'i 

BTTO 

8 0 

R H n 
PTMO 
R T N C 
RTHO 
? 'f'NO 
RTN;0 
N T M n 
R'^MO 
FTNO 
p 'f  w C 
PTNO 
RT-NO 
PTHO 
P T ?’  0 
RTHO 
'RT'^O 


440 
USO 
4 60 
470 
4 30 

4 90 
50C 
510 

5 2C 
5 30 
540 
550 
56  0 
570 
5SC 
59C 
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1 


200 


205 


210 


215 


PESW 

CONTINUE 
IF(  FTSW 
IF(  OPDN 
OPDN 
CALL 
CALL 
CONTINUE 
CALL 
LDTSW 
OSECB 
CALL 
CALL 
CALL 
CALL 
GO  TO  21 
CONTINUE 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 

CONTINUE 

RETUBN 

END 


. EQ.O  ) GO  TC  210 
. EQ. 1 ) GO  TO  205 

= 1 

RTOPN 

RTACT  ( ZERO, * J007' 


) 


DEFPR(  UNIT, HYBINT, » J007*  ) 

= 0 
= 0 

RTACT  ( TWO  ,M007»  ) 

WAITRT(  OSECE  ) 

WAITBU(  200  ) 

BEFPS(  UNIT, HONE, 'J007»  ) 

5 

LEDAFP(  ? IRST,LAST, lOUT, lERR  ) 
TLDA 

RSCL(  SCLO,TCLEBR  ) 

CRBCFP(  F2,L2,ADC2,ICPDCE  ) 
SSCL(  RCLO,ICLERR  ) 

CP3CFF(  FI ,L  1,ADC1 ,TCRBCE  ) 
SPPG2 


ETr.O 
RTEO 
PTHO 
FTKC 
RTHO 
RTKO 
PTHO 
RTHO 
PTHO 
3THO 
RTHO 
FTHO 
RTHO 
RTHO 
PTHC 
PTHC 
P 0 
RTHO 
PTHO 
RTHO 
RT<*0 
PTHO 
PTHO 
PTHO 
RTHO 
PTHO 
RTHO 


500 
610 
620 
6 30 

6 to 
650 
660 
670 
6flC 
690 

7 0C 
710 
720 
7 30 
7UC 
750 
76  0 
770 
780 
700 
50C 
810 
820 
830 
84  0 
850 
86C 
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1.8  RTIME 

PRESENTED  HERE  IS  THE  FORTRAN  LISTING  OF  THE  REAL- 
TIME EXECUTIVE  SUBPROGRAM.  THE  FOLLOWING  IS  PER- 
FORMED IN  RTIME: 

1)  Assignment  of  priority  interrupt  addresses 
to  real-time  events. 

2)  Initiation  of  the  interval  timer  for  compu- 
tation cycle  timing. 

3)  Execution  of  all  real-time  input/output. 

4)  Checks  for  end-of-run  conditions. 

5)  Deactivation  of  real-time  mode  at  the  end 
of  a simulation  run. 
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SlJBEOUTINt  RTIi^  ' ; 

SUBROUTINE  RTME  ' . . ' ' 

THIS  SOBRCUTINE  PROVIDES  THF  RFAL  TIME  SEQUFNCINO  ’ . 

COflMON/APL/  OPES  ,RTS«  ,LDTSH  ,RRSW 

COMHON  /RBBLK/  AD2RB  ,AD1PB  ,CLSRB  ,CLRRB  ,TCPB  ,OPRB  ,PTLHP 
COMMON  /RBBLK/  TCN  BU  F,  TIM  PD  F,  L D AR  B ,TDARB  ^PILRT'I 
COMBON/RBBLK/SLRBCS, BLRBOS 

COMMON  /ECBRLK/PILECB,TCNECB,TIMECB, AD AFC B , TP A FOB 
COMMON  /ECBRLK/AD2ECB,AD1ECB,CISECB,CLRECE,TCECP  ,OPECP 
COMMON  /ECBBLK/OSECB  ^DONFCB 
COMHON/ECBBLK/SLECB5 ,RLECB5 

COHMON/VARS/P  U#  V, W , X , Y ,Z , THE , PH  I , PSI , PO, 00 , RO, DO , VO , WO, XO, 

1 YO,ZO,THEC, PHIO, PSIO 

COMMON/INOUT/TSA  (32)  , TOUT A (48)  ,IN (32)  , lOUT  (48)  , IS W 1 , ISW7, SFIN  (32) 
1 SFOUT(48)  ,IPRT,  ITMP(48) 

COMMON/TI MBLK/JJTIMF,TIME,DT 

C0MH0N/SP7BLK/S1 ,N2, IPOT (120)  ,1P0TAD(12C)  ,PARAM (400) 
COMMON/HEWFR/TIME25, TTMF10,PSI5,PHIMAX ,DSWMAX 
C0HM0N/N0NAME/XEND,0 ,EXIT2 


DIMENSION  CSI  (4)  ,XBM  (4) 

rSLP(4) 

REAL*8 

Bl)PF  (8) 

,PILRB  ( 3) 

,LnARB  (23) 

,TCNBUF  (8) 

REALMS 

REALMS 

TTMDDF  (8) 

CLSP3  (6) 

,ICPB(6) 

REAL*3  ' 

PILRP1  (3) 

, AD2R3  (6) 

, A D1RB  (6) 

REAL*8 

CT  PPB(6) 

,OPRD  (6) 

,TUAPB  (6) 

REAL*8 

BUF^I  (8) 

REAL»8 

SLRB05  (6)  ,P.LPB05  (6) 

BTIM 

RTTH 

BTIM 

PTIM 

PTIM 

PTIM 

PTIM 

RTIM 

PTIM 

RTIM 

PTIM 

PTIM 

RTTH 

,PTTM 

PTIM 

PTIM 

PTIM 

PTIM 

PTIM 

PTIM 

RTIM 

PTIM 

PTTM 

RTIH 

PTIM 

PTIM 

PTIM 

RTIM 


REAL^a  ICDT  ,IN  ,ITMP 

REAL^4  ArC2(04)  ,ADC1(24) 


INTEGER*4 

TIMCAN 

,TCNECB  ,TIMPCP 

INTEr,ER*4 

CC  NSL/01/ 

, PILFCB  ,.A9AECB  ,TDAFCP 

TNTEGEP*4 

EVTRET/C2/  , T I M INT/ 1 20 00 0/ 

INTEGERS  4 

SLFC  B5,RLECB5 

, FIR  ST/00/  , LA  ST/4  7/ 

INTEGER+4 

CLPFCP,OPFCB, 

AD2EC3, ADI FCB,CLSECB,TC  FCB 

INTEGER*4 

TFAECB 

,3'rATDS 

INTEGEP+4 

or  see 

, DONECB 

INTFGEP«4 

pn  CR1 

INTEGFR’^2 

PI  LI  ST  (2)  /I 

, C/, EVTLS^/1/ 

INTEGER>«^2 

TWO  /C2/  , 

ONF/C1/ 

TNTFGEP*2 

P'^SW  ,PFSW 

,LnTSW  ,OPEN 

FQillVALENCE  (ARC  1(24), I 

N(24))  ' , (ADC2(  i)  ,IM  (25)  ) 

EVENT  0 

ENTRY  INTT 

CALL  PGET(  PII.IST,  0 , • JOO  7 • , PI  LI-Ti  1 ) 

PILFCB  = 0 

CALL  PCAN(  PILI3T  , BUFF,PIL’=’CF  ) 

CALI,  HIOCHK(  PII.ECB  ) 

CALL  PEVT ( PTLIST,FVTLST, • JCC7»  ,PILFB  ) 
DONECB  = 0 

CALL  HWAIT(  DONFCB  ) 

CALL  PREL(  PILIST,  »J0^07*  ,PILRB  1 ) 

CALL  HDONE { *DN*  ) 

CALL  HEXIT 


PTIM 
PTIM 
PTIM 
PTIM 
RTIM 
R TT  M 
RTT  M 
RTIM 
PTIM 
RTTM 
PTIM 
PTIM 
P T T K 
PTTM 
PTIM 
PTIM 
P TIM 
RTIM 
PTIM 
p TJ  M 

RTIM 
PTIM 
RTIM 
? TT  M 
PTIM 
RTIM 
R TI'^ 
PTTM 
RTIM 
PTIM 

.V. 


10 
20 
30 
40 
50 
60 
70 
8C 
90 
100 
lie 
120 
1 30 
140 
150 
loO 
170 
180 
190 
200 
210 
220 
23C 
240 
250 
260 
270 
28C 
290 
300 
no  • 
320 
3 30 
340 
350 
360 
37C 
180 

3 9^ 
400 

4 10 
420 
430 
440 
45C 

4 60 
470 
U8C 
490 
500 
510 

^'7  Ct 

540 

5 50 
560’ 
570 
5«C 
590 
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non  o n o 


■'  ■ 

BTin  600 

EVENT  . 1 

RTI«  610 

RTIN  620 

ENTBY  ENDRON 

PTIfI  630 

TCNECB  = 0 

PTTn  640 

CALL  BDTinP(  TTNCAN, TCNECB, *CANC ,TCNPaF  ) 

PTTM  650 

CALL  HIOCHK{  TCNECB  ) 

RTIil  660 

PTLECB  = 0 

RTIfl  670 

CALL  PDAC(  ?ILIST,PUFF,PILECP  ) 

FTTN  680 

CALL  HIOCHK(  PILECB  ) 

RTIN  6S0 

PILECB  = 0 

PTTN  7GG 

CALL  PCAN(  PILIST, BUFF, PILECB  ) 

°TIN  710 

CALL  HIOCHK(  PILECB  ) 

RTIrt  72C 

ICECB  = C 

'^TTN  730 

CALL  HIOREC(  ICRB  ) 

RTTN  740 

CALL  HIOCHK(  ICECB  ) 

RTIN  750 

CALL  RTCAN  ( TWO  , STATUS  ) 

PTIN  760 

CALL  HCSPST{  >FN'  ) 

RTIH  770 

CALL  HEXIT 

RTIN  78C 
’’TIN  740 

EVENT  2 

RTIM  800 
PTIM  PIC 

ENTRY  CART 

BTTN  82C 

TF<  LDTSW.EQ.1  ) GO  TO  230 

PTIM  830 

PILCP1  = 0 

PTIN  840 

CALL  PACT(  ^ILIST , BUFFI ,PILCni  ) 

PTIM  85C 

CALL  HIOCHK  ( PILCDI  ) 

PTIM  860 

TTMECB  = 0 

PTTM  870 

TININT  = 1.  EOO’^DT/PARAK  (175) 

RTTM  890 

CALL  LDTI«F(  TI NT NT,TI UFCB , FVTPET ,TIMBU F ) 

PTIM  84C 

OPECB  = 0 

PTTM  400 

CALL  KIOBEC(  OPRP  ) 

RTIM  410 

CALL  MIOCHK(  OPECE  ) 

RTI»'  420 

LDTSW  = 1 

PTIM  430 

CONTINUE 

RTIM  94C 

SLECB5=0 

RTIM  450 

CLRECB  ^ C 

PTIM  46P 

TDARCB  = 0 

FTin  470 

AD2ECB  =0 

PTIM  480 

CLSECB  = 0 

PTTM  44C 

AD1ECB  ^ 0 

RTTM1C00 

CALL  HIOREC  (SLPB05) 

RTIM  10  ir 

CALL  HTOSEC ( CL3P  P ) 

PTIM1 C20 

CALL  HIOPE(.  ( TDARP  ) 

PTTM 1030 

CALL  H TOHEC  ( AU2K  E ) 

RTIM.  leaf' 

CALL  H lOPEC  { CLSPD  ) 

PTTM 1050 

CALL  H lOREC  ( AD  IP  P ) 

RTI MICRO 

CALL  HIOCHF  { SLFCP.5) 

PT'TM  1 07C 

CALL  HICCUP  ( CL  RFC'’  ) 

RTIM 1080 

CALL  HIOCHK  ( TPAECB  ) 

PTTM 1040 

CALL  H lOCHK  ( nP2FCB  ) 

PTI  M 1 1C'0 

CALL  HIOCIIK(  CLSECB  ) 

PTI M 1 1 10 

CALL  HTOCIi'^’C  AOlFCn  ) 

RTTM112C 

CALL  SFPG2 

RTT  Ml  1 30 

ADAECB  = C 

u T T M 1 14  0 

P LPCB5  = 0 

RTT  M 1 1 

CALL  LRDAr<'T(  FI  KS  T , L A S T , TO  U T , I.  P A P , A P A ECB  , C('NSL  ) 

P TI M 1 160 

CALI  H lOPFv  (PLil  PC  5) 

?TT  M 1 1 70 

C M L HICCHK ( AP  AFCB  ) 

RTIM  1 180 

CALL.  H lOCllK  (RLFCD5) 

P TIM  1 
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APL  WILL  TERfllMAT’:’  R5AL-TISE  RUN  IF  EITHER 
CONDITION  SHOWN  BELOH’IS  SATISFIED 
O^SQPT  (U*U«>V*V) 

IF  (O.LE.  0. 1)  CALL  RTACT.(ONE,  * J007* ) 

IF  (PHIHAX ,GT, TS.)  CA LL  RTACT  (ONF , » JO q? • ) 

IFU  ISWI.EO.7  ) .or,  ( ISW7.  FO.  1 ))  CALL  RTACT{  v)NE  ,'J0C7«  ) 
IF(  Tins. LE. XFND. AND. O.GE. EXIT?  ) GO  TO  ?50 
CALL  RTACT(  ONE, *0007*  ) 

250  CONTINUE 
tTALL  HEXIT 
RETURN 
END 


RTIH1200 
RTIM1210 
FTTJ*  12?D 
PTI H12IC 
PTIM124C 
RTTfn25C 
RTIM1260 
RTIHI 270 
PTT K1280 
FTIM 1290 
RTI HI  300 
FTIH1 310 
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2.1.9  ERMONT 

PRESENTED  HERE  IS  THE  FORTRAN  LISTING  FOR  THE  AB- 
NORMAL SIMULATION  OPERATION  SUBPROGRAM.  THE  CONDI- 
TIONS OF  VEHICLE  ROLL-OVER  AND  DIGITAL-TO-ANALOG 
CONVERTER  OVERLOAD  ARE  DETECTED  BY  ERMONT  WHEN 
SINGLE  RUN  EXECUTION  IS  PERFORMED. 


181 


Ot" 

0^0  «•. 

')< 

0£ 

'0>  , 

01! 

U«1|'^- 

. 0^ 

0^' 

O^tfS- 

0»' 

?or 

0 *‘'f 

Of  r 

f > Vi-  •! 

ri  >«  <r'3 

no 

V fJ «?  '•^'‘ 

p>fs*5r? 

'O^T- 

(ff’«n-';j-'3 

y-^f 

d'w  '•' 

^:fu 

f-  *'-■(  -j- 

:)j<t 

y W 'rj,,':^' 

>/'■■'! 

■:!  ''•: 

f ■ V ^ 

” t •.. 

.^  . ■‘i 

' ' 'iss  ' ' ' 

rr--A  1 H- 

,.  C'ii/  (VK  wtiiT^.I 


Ji.rXm.  M3‘XHS;Vv  ••y-t4j^0&j 


ycK-i^i 

, - ■'  omr  €^ 

0^^u^(mr^‘Txm-  " 

. 1 pA.i>'i«%H«4>t0o < ft*^  :5A0ssT)i , 

A StVf 

rt3  IC;I'03.ry' 

(»^ > ’ ».a;A,.Jt fO-*-  ^,„: 

Jr'  ■'■*11 


C SUBPOrjTINE  ER^  )NT  («OPn;oPNAME,  NAKCAC,  TDAC,PHI«A ') 

SUBPOOTINF  ERPONT  (MOPn,ORNAMF,  NAMDAC,  IDAC,  PrllM  AX) 

C THIS  SDBR.OUTIHE  CHECKS  FOR  ERROR  CONDITIONS  AT  RUN  TFBHINAT.TON 

COHHON/EMON/IFRDAC  (1  0)  ,TERDAC  (10)  ,IDACK,IENDP  (2C)  ,TOP;'  . 
TNTEGER^2  IPAC (U8)  , NAHD AC  (40) 

REAL*8  OPNAHE  (40C) 

IF{PHIHAX.LT. 10.)  GO  TO  200 
WRITE (MOPU, 205)  PHIHAX 

205  FORHATf*  VEHICLE  ROLL  OVER  PH  I M AX=  • , F8 . 2) 

200  CONTINUE 

'IF(IDACK.  LT.  1)  GO  TO  100 
-WRITE  (HOPn,  105)  ^ 

WRITE  (HOPU,  lOf) 

WRITE  (HOPU, 107)  (TFFDAC  (J)  *CPNAME  (NAHDAC( ISPDAC M) ) ) , 

1 IDAC  (lER r AC( J)  ) , J=  1 , TDACK) 

105  FORKATC  DAC  OVERLOAD’) 

106  FORMATC  TIHF  VAR’) 

107  FORKAT,(^8.2,2X  »A6,  • ( ',TU,  •)  *) 

100  CONTINUE 

RETURN 

END 


EFHO 

10 

EPFO 

20 

FRMO 

30 

FRHO 

40 

^ RMO 

50 

FF'"0 

6C 

ERFO 

70 

ER^O 

PO 

FRMO 

qo 

EP“0 

100 

F R-'O 

1 

EPWO 

120 

FPKO 

1 3C 

EPro 

140 

F pyQ 

150 

FR?^0 

160 

F.FJ'O 

170 

F p y 0 

IHC 

F.  R F ( > 

140 

’^PMO 

20C 

w p 0 

210 
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2.1.10  POTCHK 

PRESENTED  HERE  IS  THE  FORTRAN  LISTING  FOR  THE  POTEN- 
TIOMETER SETTING  CHECK  SUBPROGRAM.  CORRECT  SETTING 
OF  EACH  POTENTIOMETER  IS  VERIFIED  IN  POTCHK.  IF  A 
SETTING  ERROR  IS  DETECTED,  APPROPRIATE  OPTIONS  OF 
CONTINUE,  RETRY,  OR  RETURN  TO  THE  OPTION  COMMAND  ARE 
PRESENTED  TO  THE  USER. 
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C SUBROUTINE  POT 'HK (IPOT, I VA L, ITCL, ♦ ) 

SUBROUTINE  POTCHK ( IPOT , IV A L , IT OL, ♦, *) 

C TFIIS  SUBROUTINE  CHECKS  FOP  INCORRECT  PCT  E NTIOP"  S'^S  R SETTINGS 

C IPOT  IS  THE  POTENTIOMETER  ADDRESS 

C IVAL  IS  THE  POTENTIOMETER  VALUE  ’ ' , 

C ITOL  IS.  THE  ’POTENTIOMETER  SETTINvG  TOLERANCE 

C THE  ASTERISKT(*)  IN  THE  ARGUMENT  LIST  ARE  DUM^^Y  S"^  ATFHF  NT..  L AP ; 

C CORFESPONDINS  TO  THE  A HPE RS ANDS  (&)  LABLF  STATEMENTS  IN  CALLIN 

C PROGRAM 

C 

KEYBD  =5  • 

ITTY  =6 
ITOL  = 3 

100  CALL  SPOT  (IPOT, IVAL, ITOL, ISPOTE) 

C CHECK  FOR  POT  FAILURE  ♦♦♦ 

IP  (TSPOTE  ,EQ. 0)  GO  TO  200 


WRITES  OUT  NUMBER  AND  VALUE  OF  POT  THAT  FAILED 
' HRITE(ITTY,6000)  IPOT, IVAL 
6C00  FORMAT(1X,'  POT • , I 3, T 11 , • DI D NOT  SET  TO  ’,15) 


C 

c 

c 
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WRITES  OUT  PROGRAM  OPTIONS  FOR  POT  FAILURE  + * 
WPITE(ITTY,601  )) 

6010  FORMAT  (IX,'  TYPE  1 (RETRY), 2 (CONTINUE)  ,3  (RESTART), 4 (STOP)') 

READS  IN  PROO.PAM  RETURN  OPTIONS  IN  II  FORMAT  *** 

READ  (KFYBD,  6020)  I 
6020  FORMAT(II) 

V 

GO  TO*  STATEM’- NTS  FOP.  PROGRAM  RETURN  OPTIONS 
GO  TO  (10C,20C, 300,4G0) ,I 

PROGRAM  RETURN  STATEMENTS  *** 

200  RETURN’ 

300  RETURN  1 
400  RETURN  ? 

RETURN  - RT:TUoN  TO  NEXT  STATEMENT  IN  CAT.LIMG  PROGRAM 
RETURN  1E2  RETURNS  TO  THE  1STS2ND  (6)LAfcLF  STATEMENTS  IN  THE 
CALLING  ' PROG->  AM 

EOF  REFERENCE  SEE  IBM  ?(/RTRA,N  IV  LANGUAG’^  -MANUAL  PAGES  9<S-U8 
END 
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2.2  FUNCTIONS 

PRESENTED  HERE  IS  THE  FORTRAN  LISTING  FOR  THE  FUNC- 
TION SUBPROGRAMS  CALLED  BY  THE  MODEL  SUBPROGRAM. 

THE  FOLLOWING  LIST  DETAILS  THE  FUNCTION  NAMES  AND 
THEIR  USE: 

FUNCTION  USE 

FF  Calculation  of  Front  Wheel  Brake  Torque 

FR  Calculation  of  Rear  Wheel  Brake  Torque 

FCSI  Calculation  of  the  Wheel  Slip  Side  Force 

Shaping  Function 

PTBAK  Calculation  of  a Caster  Trail  Function 

GETDEL  Calculation  of  Bumps  for  VHTP  #3 

XINT  Linear  Interpolation  of  Function  Values 

between  Input  Table  Data  Points 

AMIN  Selection  of  the  Minimum  Value  between 

TWo  Variables 

POLY  Evaluation  of  a Fifth-Order  Polynomial 

Approximation  to  a Function 
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c 

FUNCTION  FF(P) 

CFUN 

10 

FUNCTION  FF(P) 

CFUN 

20 

C0N»10N/NE«TB3/TQPF  (2  0)  ,PBF  (20)  ,TQ BH  ( 2C ) , P BP  (20  ) , 

CFUN 

30 

UFA  (20)  /GA«F(20)  ,NTF,NTB,NFA 

CFUN 

40 

FF=XINT (P  ,PBF,TQBF,NTF) 

.* 

CFUN 

SO 

RETURN 

CFUN 

60 

END 

CFUN 

70 

191 


C FriRCTION  FR  (P)  rpT?M  10 

FUNCTION  F8(P)  CPUN  20 

COMtlON/NEWTBS/TQBF(20)  ,PBF(20)  ,TQBP(2C)  ,PBR(20)  , CFUN  iO 

1AFft  (20)  ^GAMF(20)  ,N1F  ,NTR,NFA  C FU N UC 

FR=XINT  (P,PBB,  rQBB^NTF)  CPUS  50 

RFTUPN  CFUy  60 

END  CFtIN  70 


-192 


FUNCTION  FCSI  I PI) 

CFUN 

10 

FUNCTION  FCSI  {OAHI.FLPI) 

CFUN 

2C 

CONMON/NEWTBS/T’QBF  (2  0)  ,PBF  (20)  ,TQBP  (?C)  (20)  , 

CFUN 

3C 

1 AFA(20)  ,GAflF(2C)  ,MTF,NTEl,  NFA 

CF'TN 

4 0 

TMP=A8S (SLPI) 

r FI!  N 

50 

FCSI  = XINT  (TMP,GA«F,  AFA,NFA) 

C^TIN 

oO 

RETURN 

CFUN 

■’O 

END 

CFIJN 

BO 

S JBBOOTINE  PTE-iK  (5ET  ,FPI  , f.KKT  , PT3I) 

PTE  A 

10 

SUBEOUTINF  PT E AK ( BET , FR I , AKK I, FTBI ) 

PTBA 

2D 

COMMON/PTRK/AP1,  AP2,  AP3  , AP4  , AP*?  , 3TC  1 , BTC2 

PTBA 

BO 

AP5=600.  ) 

p T P 

40 

AKKT=AP4fFRI/??5 

PTSA 

5/^ 

TEHP=ABS  (EET+57. 29578) 

PTBA 

60 

PrBI=APl 

PTBA 

70 

IF(TFMP. LF. BTC  1)  BETnPN 

PTBA 

8’" 

PTBI=AP3 

PTE  A 

9C 

TP  (TEMP.  GT.  BTC2)  3FTUBN 

PTBA 

PTBI-AP1*  (1.0-  (TEr!P-BTCl)  <'AP2) 

PTE  A 

1 10 

RETURN 

PTBA 

120 

END 

PTBA 

^ ir- 

1 


FilNCTION  GETDE  . ( X , I , T<5  , MBF  P) 

C FO  N 

K’ 

FUNCTION  GETDE:.  (X,  I,  H5  , N E>’".  P) 

CFUN 

2C 

THIS  SUBROUTINE  PRODUCES  THF  BUMPS  FOR  VHTP'F3 

CFUN 

30 

COM?*ON/XBS/XB  (15),NS(4,15),DEI,X(4),XT(4),NNN 

C PUN 

40 

COMRON/XYZ/NUPnR 

CFUN 

SO 

DIMENSION  X (4) 

CFUN 

SO 

getdfl=o.c 

CFUN 

70 

DO  10  K=1-,NBMP 

C FUN 

■90 

L=NBMP-K+ 1 

CFUN 

90 

IF(X  (I)  . LE.  XB  (L)  ) NS  (I,L)  =NUMBR  + NNN 

CFUN 

10,0 

IF (X fl)  . GE.  XB (L)  , AND, NUM3R. LE. NS (I, L) ) on  TO  20 

CFUN 

1 10 

CONTINUE 

CFUN 

12C 

PETU  RN 

C fun 

1 ?o 

GETDEL=S5 

CFt;N 

14" 

RETURN 

C F r.  N 

ISO 

END 

C FU  N 

IbO 

I 
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C FUNCTION  XINT (\RG, ARGTB,FUN,NP)  CFUN 

FUNCTION  XINT (ARC, ARGTB,FUN ,NP)  CFUN 

C THIS  SUB8CUTINB  PERFOPHS  A LINEAR  INTERPOLATION  OF  A FUNCTION  CFUN 

DIMENSION  ARGTB  (NP)  , FUN (NP)  CFUN 

DO  10  1=1, NP  CFUN 

IF(ARG-ARGTB  (I) ) 30,20,10  CFUN 

10  CONTINUE  CFUN 

I = NP  CFUN 

30  IF  (I. EQ.  1) 1 = 2 CFUN 

TEMP=(ARG-AR3T'l  (1-1)  )/(ABGTB(T) -ARGTn(I-l)  ) CFUN  1 

XINT=FUN  (1-1)  ♦ (FUN (I) -FUN  (1-1) ) ♦TEMP  CFUN  1 

RETURN'  CFUN  1 

20  XINT=FUN (I)  CFUN  1 

RETURN  CFUN  1 

END  CFUN  1 


10 

2C 

30 

40 

5C 

60 

70 

80 

90 

00 

10 

20 

30 

40 

SO 
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FUNCTION  AWIN(:*:,y) 
FUNCTION  AMIN(X,Y) 
TF  (X-Y)  1,  1^2 

1 AMIN=X 
PETUPN 

2 ANIN=Y 
RETURN 
END 


C 

c 

c 

c 

c 

c 

c 

r 


20 

30 

40 

SO 

so 

70 

RC 

qo 
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C FfJNCTION  POLY  (DL,TBL) 

FUNCTION  POLY  (DI,TBL) 

C THIS  SUBROUTINE  PFRFCRMS 

DIHENSTON  TBL(7) 

TMP=TBL (7) 

DO  10  1=1,6 
TMP=THP<'DLfTBl  (7-1) 

10  CONTINUE 
POLy=T«P 
RETURN 
END 


POLYNOMIAL  APPROXIMATION  TO 


CPUN  10 
CFUN  20 
A FUNCTION  CFUN  30 
CFUN  40 
CFUN  ^0 
CFUN  60 
CFUN  70 
C^UN  BO 
CPUN  qr 
CFUN  100 
CFUN  110 


r 
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3.  PRESENTED  HERE  ARE  THE  ANALOG 
COMPUTER  DIAGRAMS 


199 
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Fig.  B-1  ANALOG  COMPUTER  DIAGRAM  - ROTATIONAL  WHEEL  DYNAMICS 


CL-HeSST 


! 
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Fig.  B-2  ANALOG  COMPUTER  DIAGRAM  - CONTINUOUS  RESOLUTION  OF  WHEEL  RATES 


[AuxfU- 


Fig.  B-3  ANALOG  COMPUTER  DIAGRAM  - SUSPENSION  FORCES  AND  DEFLECTIONS 


W h k E L'  'Sn p Loc  K U L r C AXll  ZNi£ff^i  Crv_L2j^ 
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Fig.  B-4  WHEEL  LOCK-UP  AND  SPLIT/SOLID  AXLE  LOGIC 


205 


Fig.  B-5  ANALOG  COMPUTER  DIAGRAM  - RADIAL  FORCES  AND  INDEPENDENT  REAR  SUSPENSION 


1 
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Fig.  B-6  ANALOG  COMPUTER  DIAGRAM  - STEERING  SYSTEM  AND  SHOCK  ABSORBERS 
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PRESENTED  HERE  ARE  THE  SYMBOLS  AND  DEFINITIONS 
OF  THE  PROGRAM  PARAMETERS.  THE  ORDER  OF  THE 
PARAMETERS  CORRESPONDS  TO  THE  INPUT  DATA  CARDS. 
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SYMBOLS  AMD  DEFINITIONS  OF  THE  PROGRAM  PARAMETERS 
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APPENDIX  C 

DESCRIPTION  OF  HYBRID  COMPUTER  SIMULATION  LABORATORY 
1.  HYBRID  COMPUTER 

The  APL  hybrid  computer  is  unique  in  that  the  analog 
computer  is  a terminal  to  a large  digital  computer,  with  com- 
munication between  them  occurring  over  a 1000-foot  data  path. 

A block  diagram  of  the  system  is  presented  in  Figure  C-1. 

The  analog  computer  is  an  EAI  Model  680  and  the  digital  compu- 
ter is  an  IBM  System  360  Model  91.  The  data  channel  that  pro- 
vides the  high-speed  transmission  required  for  hybrid  process- 
ing is  the  parallel  data  adapter  (PDA)  of  the  IBM  2909  asynchro 
nous  data  channel.  The  2909,  which  is  capable  of  transmitting 
at  a 2M-byte  per  second  rate,  is  working  at  about  40%  of  this 
rate  (200K  16-bit  words  per  second)  through  the  PDA  while  serv- 
icing the  hybrid.  Besides  the  PDA,  the  2909  has  two  additional 
subchannels  used  for  hybrid  processing:  one  for  priority  inter 

rupts  and  the  other  for  precision  internal  timing. 

The  priority  interrupt  subchannel  provides  up  to  64 
priority  interrupt  levels  (PILS)  for  a System  360  which,  v/ith 
the  exception  of  the  360/44,  does  not  have  a priority  inter- 
rupt structure.  Thus,  this  subchannel,  was  necessary  in  order 
to  provide  the  hybrid  system  with  PILS.  This  subchannel  cur- 
rently is  expanded  to  16  PILS.  The  other  subchannel  provides 
a precision  interval  timer  (1  ys  resolution)'  to  the  hybrid  user 
This  timer  can  be  loaded  via  software  and  causes  an  interrupt 
when  decremented  to  zero,  which  in  turn  initiates  an  event 
in  a hybrid  program. 

.The  360/91,  one  of  the  largest  apd  fastest  computers 
built  by  IBM,  has  the  following  characteristics: 
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Third-generation  hardware 

4 million  bytes  of  ir^ain  core  storage 

1 trillion  bytes  of  direct  access  storage 

Minimum  execution  time  of  60  ns  per  instruction 

Use  of  the  Operating  System  OS/MVT  (Multiprogramming 
with  a Variable  Number  of  Tasks) 

Two  advantages  are  immediately  obvious  to  a 360/91  interactive 
user.  First,  since  he  is  only  charged  in  proportion  to  his 
use  of  the  central  processing  unit  (CPU)  and  main  core  storage 
in  the  multi-programming  environment,  the  machine  is  inexpensive 
to  use.  Second,  since  the  360/91  is  a third-generation  computer 
with  nearly  unlimited  resources,  it  is  extremely  fast  and  effi- 
cient while  computing.  In  summary,  this  computer  gives  the  in- 
teractive terminal  user  unlimited  digital  resources  at  a cost 
comparable  to  that  of  a much  smaller  com.puter. 

The  Interactive  Simulation  Laboratory  (ISL)  is  located 
800  feet  from  the  360/91  digital  computer.  The  2909  PDA, 
which  has  specially ' designed  line  drivers  and  receivers  (now 
standard  from  IBM) , can  easily  drive  the  1000-foot  cable  to 
the  ISL.  However,  matching  drivers  and  receivers  are  required 
in  the  ISL.  These  are  housed  in  the  IBM  2930.  Individual 
ines  aia  required  for  each  bit  of  the  data  word,  each  control 
line,  and  for  each  PIL.  The  2930  then  cables  into  a 360/91 
coupler  (standard  EAI  product)  housed  within  the  FAI  693. 

From  the  coupler  on,  the  693  hybrid  interface  and  680  analog 
computer  are  standard  EAI  equipment. 

In  addition  to  the 'hybrid  hardware  of  Figure  C-1,  the 
ISL  contains  three  pieces-  of  equipment  that  support  the  hybrid 
operations.  These  are  a Data  100  remote  batch  terminal  and 
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an  IBM  3270  Display  System  (3286  printer  and  a 3277  CRT  with 
a keyboard) . The  Data  100  consists  of  a 600  card/minute 
reader  and  a 600  line/minute  printer  which  allow  the  submis- 
sion of  jobs  to  the  360/91  and  the  return  of  results  from  the 
360/91  at  the  ISL  hybrid  work  station.  The  Data  100  operates 
over  a dedicated  communications  line  into  a control  unit  con- 
nected to  the  360/91  multiplexer  channel.  Its  support  package 
is  the  IBM  remote  job  processing  (RJP)  portion  of  the  ASP  job 
scheduler. 

The  IBM  3270  Display  System  has  evolved  as  the  hybrid 
operator's  station.  Via  APL-written  software,  all  hybrid  jobs 
can  be  interfaced  to  the  Display  System  and  problem  execution 
directed  from  the  CRT  and  input  keyboard.  In  addition,  the 
operator's  station  contains  a 3286  (66  character  per  second) 
printer.  All  CRT  activities,  input  and  output,  are  recorded 
on  this  printer.  The  printer  also  serves  as  an  addressable 
output  device. 

These  hardware  items  comprise  the  APL  hybrid  computer 
system.  In  addition  to  this  system,  the  ISL  contains  three 
231-R  analog  computers,  each  interfaced  to  an  EAI  DES-30  logic 
unit  and  an  EAI  quarter-square  multiplier  rack.  These  machines 
are  interfaced  to  the  hybrid  system  via  buffering  amplifiers 
for  large  simulations. 

2 . HYBRID  SOFTWARE 


Included  with  the  original  EAI  hardware  purchase  were 
three  hybrid  software  packages  operable  under  Operating  System 
360  (OS/360) . The  first,  the  HYIOS  (Hybrid  Input/Output  Sub- 
routines) package,  was  a collection  of  Fortran  IV  callable 
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subroutines  that  allowed  operation  from  the  360  of  all  hybrid 
functions  in  the  680  and  693  originally  designed  for  control 
from  the  EAI  PACER  100  digital  computer  (Ref.  8) . These  rou- 
tines number  47  and  permit  complete  control  and  readout  of 
the  data  interface,  logic  components,  and  analog  components. 
Also,  these  routines  do  extensive  error  checking  and  each 
has  an  error  argument  returned,  which  can  be  checked  by  the 
programmer  to  determine  successful  completion  of  a hybrid 
operation . 

The  second  software  package  delivered  by  EAI  was  HYSAT 
(Hybrid  Static  Analog  Test) . HYSAT  is  an  interpretive  language 
written  in  Fortran  using  HYIOS,  which  automates  the  performance 
of  analog  computer  setup  and  static  checks.  Simple  commands 
allow  changing  the  analog  mode,  setting  potentiometers  and 
control  lines;  reading  the  outputs  of  amplifiers,  integrator 
derivatives,  and  track-store  inputs;  and  reading  the  state  of 
sense  lines,  comparators  and  relays.  In  the  verify  mode,  the 
outputs  of  the  analog  and  logic  components  can  be  compared 
against  predeterm.ined  values,  with  all  errors  documented  on 
the  CRT.  This  program  is  interactive  from  the  CRT/keyboard 
and  input  from  a prepared  data  set  can  be  selected.  The  capa- 
bilities of  HYSAT  have  been  combined  with  ease  of  programming 
of  a simulation  language  (DSL/91)  to  produce  a completely 
automated  static  check  procedure  for  hybrid  programs  (Ref.  7). 

A specially  wired  board  and  specially  prepared  HYSAT  data  deck 
are  used  to  verify  that  all  680  analog  components  are  opera- 
tional . 

Whereas  HYSAT  permits  checking  the'  680  analog  console 
statically,  the  third  software  package  delivered  by  EAI  per- 
mits checking  the  693  hybrid  interface.  HIORT  (hybrid  Inter- 
face Operational  Readiness  Test)  is  again  an  interpretive 
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language  that  is  interactive  at  the  CRT  and  is  used  to  perforin 
A/D  converter  absolute  error  tests  and  A/D  - D/A  converter 
relative  error  tests.  With  this  program,  information  is  ob- 
tained to  demonstrate  the  functioning,  within  specification, 
of  the  hybrid  interface. 

Thus,  with  these  three  software  packages,  complete 
hybrid  programming  is  obtained.  HYIOS  provides  the  Fortran 
callable  routines  for  application  programs;  HYSAT  provides  a 
a convenient  interactive  method  for  performing  initial  setup 
and  static  checks;  and  HIORT  provides  an  interactive  method 
of  insuring  the  accuracy  of  the  hybrid  interface.  These 
programs  are  fully  documented  in  Ref.  8. 

3.  REAL-TIi-lE  HYBRID 


The  multiprogramming  360/91  is  a great  asset  for  the 
hybrid  user  in  that  it  provides  nearly  unlimited  digital  re- 
sources and  inexpensive  operation.  However,  when  real-time 
hybrid  is  considered,  multiprogramming  becomes  a liability. 
Since  many  users  are  timesharing  the  facilities  of  the  large 
central  processor,  service  within  a fixed  time  frame  cannot  be 
guaranteed.  From  the  beginning,  it  was  obvious  that  a hyper- 
visor was  required  for  real-time  jobs. 

This  need  has  been  met  by  IBM's  real  time  monitor  (RTM) . 
RTM  was  developed  at  the  IBM  Palo  Alto  DAGS  Development  Center 
and  was  first  reported  in  a seminar  at  the  DAGS  Center  in 
September  1968  (Ref.  9) . As  first  reported,  RTM  guarantees 
CPU  service  to  jobs  designated^ as  real-time  jobs,  with  RTM 
co-resident  with  the  OS/360  monitor.  The  real-time  job  can 
use  all  the  facilities  of  OS  and  can  force  all  non-real  time 
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jobs  into  the  "wait  state"  when  it  needs  the  CPU.  IBM  aug- 
mented their  basic  RTM  with  the  code  required / to  have  RTM 
support  the  PDA,  precision  interval  timer,  and  priority  inter- 
rupt subchannels  of  the  IBM  2909.  These  packages  provide 
Fortran  callable  subroutines  as  well  as  assembly  language 
MACRO'S  for  accessing  and  controlling  the  three  subchannels. 
RTM  is  a "free"  IBM  software  package  installable  on  IBM  System 
360  and  370  computers;  it  was  released  in  December  1970. 
Reference  10  is  an  introduction  to  RTM  and  Reference  11  is 
the  RTM  Operations  and  Programmer's  Guide. 

Many  applications  programs  have  been  written  using  the 
real  time  monitor  in  which  two  basic  types  of  operation  are 
employed:  (a)  initialization  of  real-time  events  via  the 

priority  interrupts  and  (b)  the  initialization  of  real-time 
events  via  decrementing  of  the  interval  tim.er.  Besides  the 
conventional  closed-loop  hybrid  technique  of  executing  a 
digital  program  involving  A/D  conversion,  digital  calculation 
and  D/A  conversion;  an  interrupt-based,  multiplying  D/A  con- 
verter, hybrid  function  generation  scheme  (Ref.  12)  has  also 
been  implemented.  In  order  to  complete  support  of  these  real- 
time hybrid  jobs,  the  HYIOS  subroutines  were  rev/ritten  to  run 
under  RTM  as  well  as  OS/360.  These  routines  are  referred  to 
as  RTAM  (Real  Time  Access  Method) . During  this  effort,  much 
f the  error  checking  in  these  routines  was  omitted,  greatly 
decreasing  the  execution  time  of  each  routine. 

4 

As  an  aid  for  preparing  real-time  simulations,  APL 
has  written  an  interactive  program  which  generates  all  RTM 
and  RTAM  subroutine  calls.  The  input  to  this  program  is  the 
hybrid  resources  required  for  the  simulation,  such  as  number 
of  D/A  and  A/D  converters  and  their  addresses,  control  lines 
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to  be  set  or  reset,  etc.  The  output  of  the  program  is  a com- 
pilable Fortran  IV  source  program  that  serves  as  the  base  for 
the  digital  portion  of  the  hybrid  simulation  (Ref.  13). 

4.  HYBRID  OPERATION 


Two  modes  of  hybrid  operation  are  currently  employed: 
closed-loop  real-time  hybrid  and  data  acquisition.  In  both 
cases  the  hybrid  jobs  are  submitted  to  the  360/91  via  the 
Data  100.  If  it  is  a real-time  job,  the  hybrid  applications 
engineer  must  have  RTM  started  prior  to  the  release  of  his 
application  program.  Both  real-time  and  data  acquisition 
jobs  are  run  interactively  at  the  CRT  and  jobs  are  available 
within  minutes  of  submission. 

Hybrid  data  acquisition  programs  are  those  that  use 
the  digital  computer  to  vary  parameters  interactively  be- 
tween runs,  collect  data  at  the  end  of  a run,  and  then  post- 
process the  data  to  determine  a cost  function  in  an  all-analog 
simulation.  No  real-time  constraint  exists  in  this  type  of 
running.  Stochastic  variation  (white  noise)  is  usually  an 
input  and  many  runs  are  required  to  statistically  define  a 
data  point.  The  digital  computer  response  is  gotten  by  forc- 
ing the  360/91  program  into  the  "wait  state"  for  the  analog 
solution  time  which  immediately  follows  the  change  of  the  ana- 
log mode  to  operate.  Following  the  "wait,"  data  is  collected 
and  simulation  control  is  returned  to  the  user  at  CRT.  This 
mode  has  been  quite  reliable  and  control  is  immediately  re- 
turned following  the  "wait."  Non-real  time  jobs  operate  under 
OS/360  at  an  execution  priority  of  11  out  of  13,  using  the 
HYIOS  routines  supplied  by  EAI . As  previously  mentioned,  all 
real-time  jobs  operate  under  RTM  in  the  manner  discussed. 


244 


f 


BCE-T-0530 


All  simulations,  either  data  acquisition  or  hybrid, 
employ  a set  of  APL  written  interactive  subroutines  for  simu- 
lation control.  These  routines  allow  readout  and  alteration 
of  digital  constants  and  variables,  reassignment  of  D/A  and 
A/D  channels,  performance  of  parameter  variation  runs,  and 
printout  of  digital  data  (Ref.  14) . 
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APPENDIX  D 

INTERACTIVE  SUBROUTINES 

1 . INTRODUCTION 


A set  of  generalized  user  communication  subroutines 
has  been  added  to  the  HVHP  to  enhance  its  operation  by  engi- 
neers. A subset  of  these  routines  directly  aimed  at  the 
engineering  user  expedite  the  simulation  functions  of  chang- 
ing parameters,  selecting  variables  for  output,  performing 
parametric  runs,  and  general  simulation  control.  Another 
subset,  directed  toward  the  simulation  designer,  allows  tasks 
such  as  reassigning  and  rescaling  analog-to-digital  and  digital- 
to-analog  converters,  printing  the  current  values  of  all  digi- 
tal variables,  and  printing  selected  members  of  arrays.  The 
use  of  these  routines  has  allowed  easy  configuration  of  the 
HVKP  to  perform  the  vehicle  handling  test  procedures  (VHTP) 
and  to  calculate  the  vehicle  comparison  variables  (CV) . 

2 . SUBROUTINE  USE 


All  simulation  control  occurs  at  the  hybrid  operator's 
station  which  consists  of  a telecommunications  device  (tele- 
typewriter or  a CRT  with  keyboard) . Once  the  simulation  is 
active,  the  user  controls  simulation  activity  with  input  res- 
ponses to  the  OPTION  cue.  Each  input  selects  an  interactive 
routine.  Once  a routine  has  been  selected,-  the  user  is  queried 
for  information  necessary  to  perform  the  task  of  the  selected 
routine.  When  the  routine  is  completed the  readiness  of  the 
simulation  for  the  next  routine  is  indicated  by  the  reappear- 
ance of  the  OPTION  cue.  Table  I lists  the  "names  of  the  cur- 
rently available  interactive  subroutines.  ' 
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TABLE  I 

INTERACTIVE  SUBROUTINE  LIST 

X (Execute  Single  Simulation  Run) 

XM  (Execute  Multi-run  Series) 

IC  (Initialize  Simulation) 

F (Read  or  Alter  Real  Variables) 

I (Read  or  Alter  Integer  Variables) 

DACA  (Alter  DAC  Array) 

ADCA  (Alter  ADC  Array) 

MULTI  (Setup  Multiple  Runs) 

TEST  (Test  Runs) 

MES  (Send  Message  to  Line  Printer) 

TABLE  (Setup  End-of-Run  Output) 

TRACK  (Setup  during  Run  Data  Collection) 

LA  (List  Array  Values) 

REMO\^  (Suspend  Output) 

T+D  (Output  Timed  and  Date) 

STD  (Standard  Output) 

DUMP  (Output  All  Variables) 

DACL  (List  DAC  Array) 

ADCL  (List  ADC  Array) 

. .■  # ■ 

TERM  (Terminate  Program) 
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In  general  the  routines  either  alter  simulation  data, 
provide  simulation  control,  or  provide  for  output  of  simula- 
tion data.  For  output,  the  information  may  be  directed  to 
the  hybrid  operators  station  (T) , the  system  line  printer  (L) 
or  both  (B) . Also,  the  output  can  be  specified  as  immediate 
(XEQ) , at  the  end  of  a single  run  execution  (S) , or  at  the 
end  of  each  run  in  a multiple-run  execution  (M) . These  out- 
put selections  and  their  codes  are  shown  in  Table  II. 


Table  II 


Data  Output 
Unit 

T = CRT 

L = System  Line  Printer 
B = Both  T and  L 


Selections 

Mode 

S = Single  Runs  Only 
M = Multi-runs  Only 
A = Both  S and  M 
XEQ  = Immediately 


3 . INTERACTIVE  VARIABLES 


To  be  effective,  the  routines  must  access,  by  name, 
the  Fortran  variables  within  a simulation.  The  variables  of 
interest,  termed  interactive  variables,  need  only  appear  in 
a Fortran  named  COMMON  to  be  accessed.  Once  selected,  a vari- 
able can  be  given  any  number  of  aliases.  The  alias  capability 
is  particularly  important  when  an  interactive  variable  is 
an  array  member.  For  instance,  the  current  value  of  input 
brake  line  pressure,  which  is  stored  in  element  121  of  the 
PARAM  array,  has  been  given  the  alias-  PFL.  Also,  the  PARAM 
array  has  been  given  -^he^'shorter  alias  PRM.  A maximum  of  400 
interactive  variables  can  be  selected.  However/  it  is  impor- 
tant to  note  that  the  PARAM  array,  which  has  295  elements, 
uses  only  one  interactive  variable  allocation.  Nearly  all 
" • . ■ 249 
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variables  which  are  associated  with  wheel  computation  (side 
force,  FSI;  normal  force,  FRI;  ground  patch  velocity,  CVI ; 
etc.)  are  addressable  as  arrays  and  use  only  one  interactive 
variable  allocation.  Currently,  300  interactive  names  have 
been  used  which  permit  the  interrogation  or  alteration  of 
more  than  900  Fortran  variables. 

Each  subroutine  is  discussed,  including  all  required 
inputs,  and  actual  user  examples  are  presented.  In  the  example 
****  indicates  user  input.  The  remainder  is  computer  output. 
Although  it  is  not  presented,  the  routines  have,  extensive  error 
handling  facilities  which  prompt  a user  when  errors  are  made. 

4.  SUBROUTINE  DESCRIPTIONS 

X (Ex'ecute  Single  Run) 

Purpose  - Perform  a single  simulation  run.  The 
simulation  is  automatically  initialized  (IC)  and  a 
run  performed, 

OPTION  when  the  run  is  completed  and  all  output 
has  been  printed. 

Example  - . 

OPTION  • " . 

»*  *»  X 

JUNE  20  1974 

TIME  10  1b. 17.09 

RUN  5 STARTED 

OUTPUT  P-ELOW  - • 

AXAV=  0.0  DECL  TIME=  0.000  AVCUR=  0.110  BTDhAX=  0.023  En-KAX=  0.007- DELBT=  0.00b 

ATMAX=  0.154  PHIhAX=  1.502  RMAX=  O.Obb  LANE  CHNG  DEL=  0.0  -DELPSI=-  0.0  MAX  STEER=  27.927 

PTR0MAX=  0.0  RTR«MAX=  0.0 

UP r I ON  • ' - ' 
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XM  (Execute  Multi-run  Series) 

Purpose  - Perform  a series  of  parametric  runs.  The 
simulation  is  automatically  initialized  (IC)  prior 
to  each  run  in  the  series  being  performed. 

Input  Requested  - None.  Control  is  returned  to 
OPTION  when  the  run  series  is  completed  and  all 
output  has  been  printed. 

Example  - 

OPT I ON 


XN 

JUNE 

20 

1 974 

• 

TINE, 

10:24; 

7. 1 e 

RUN 

10  MAX 

STARTED 

OUTPUT  BEI..UW 

HULTI 

TOTAL 

STR4. . ( 1 ) 

BETAMXL  1 ) 

BETDMXi  1 ) CUVRATf 

1 

1 0 

23 . 0 

0.674E--02 

0.237E-01  0.111 

1 1 

::>6.0 

0.141 E-01 

0.46::)E"01  0.209 

3 

1 2 

04.0 

0.2:;y4E-01 

0 . 6li)!:)E-01  0.306 

4 

1 3 

112. 

0.41 6E-01 

0..903E-01  0.394 

IC  (Initialize  Simulation^  DO  NOT  Execute) 

Purpose  - Resets  variables  back  to  their  initial 
conditions.  Sets  potentiometers  and  DAC ' s , then 
returns  control  to  OPTION. 

Internal  Input  Requested  - None. 

Example  - 


OPT  I ON 
•*i.  *)';  J.  •!_. 

npT  ]■  ON 
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F (Alter  or  Read  Real  Variables) 

Purpose  - Read  current  values  of  parameters,  initial 
conditions,  and  variables  which  are  declared  "REAL"  to 
Fortran.  Alter  current  values  of  "REAL"  parameters 
and  initial  conditions. 

Input  Requested  - Interactive  variable  only  for 
readout,  interactive  variable  followed  by  new  value 
for  altering  data. 

Variation  - Array  Readout:  (a)  Interactive  variable 

followed  by  range  of  array  to  be  output,  (b)  inter- 
active variable  followed  by  the  letters  AM,  allows 
addressing  array  elements  by  number. 

Examples  - 


OPT I ON 

F 

FNTFR 

V NT  PNG 

{\  I'Vi 

VHTPNO  5. 
p R I 1 4 

1073. 

2:;::::::  > 

1073. 

3::::=::) 

8 <:')  > . /' 

4. 

887 . 7 

pRM  280  287 

3.900 

288-^=:  > 

0.0 

287:":"=) 

^ 1 . 000 

PRM  i 23 

•V 

Jh 

1 

12.33 

2-::-  >• 

0.51 00 

0.8200 

4:.:::::> 

11.30 

11.30 

49.30 

68.70 

8 > 

59.80, 

9:::::;::) 

< j 1 . 0 

i 0::::..) 

47.00 

■3-758. 

1 2^==:^:=  > 

0.2305E 

1 

0.2333E  05 

i 4::::.::) 

.530.0 

1 5^^^-i  > 

550.0 

1 6-=^==0 

0.0 

i 7::::::.) 

0.4040E  05 

1 8===:^^::  > 

40;00  .• 

i 9. 

1 05.0 

20:^^:T> 

2.000 

21=:=:=-) 

-2.400 

22  "--  > 

2.100 

23::^=^^  >• 

0 . 0 
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OHBO*  FRl  AM 

1 073 . 

* * «•  # 2 
1073. 

>Oj<yjBO  3 

387.7 

■j'-  jt « 4 

837 . 7 
P|vM  AM 
235 

3.900 

•II.  .ji}  ;|j}  ■__>  0 i-j'  q ^ 

•K***  235 

4.400 

i(-  * » )i: 

I (Alter  or  Read  Integer  Variables) 


Purpose  - Read  current  values  of  parameters,  initial 
conditions  and  variables  which  are  declared  INTEGER 
to  Fortran.  Alter  current  values  of  INTEGER  para- 
meters and  initial  conditions. 


Input  Requested  - Interactive  variable  only  for 
readout,  interactive  variable  followed  by  new  value 
for  altering  data. 


Example  - 
. OP r I ON 

■!i;  * V:  )>:  ]; 

ENTER 

■ IPGT 
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DACA  (Alter  DAC  Array) 

Purpose  - To  change  DAC  variable  assignment  and/or 
scaling. 

Inputs  Requested 

1)  "ENTER  DAC  NUM  OR  NAME" 

(a)  Purpose  - To  select  DAC  to  be  altered. 

(b)  Input  Requested  - The  name  of  any  inter- 
active variable  that  is  assigned  to  a DAC 
or  a number  1 - 48. 

2)  "ENTER  NAME" 

(a)  Purpose  - To  reassign  a new  variable  to 
the  DAC. 

(b)  Input  Requested  - Any  interactive  variable 
Depressing  the  carriage  return  will  retain 
the  old  assignm.ent. 

3)  "SCALE  FACTOR" 

'A  • ^ 

(a)  Purpose  - To  enter  scale  factor. 

(b)  Input  Requested  - Any  number. 
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Example  - 

OPT ION 

•ji;  K-  X-  f.l  i•■■l  t. |■•| 

rn  RETURN  TO  OPTIONS  HIT  CR 
ENTER  DAC  ARRAY  NUn  OR  NAME 
X V:  a ¥:  1 

DACOi  1)  lOUlE.f  1)  / 1.0000 

ii;:NTER  NAME 

xxxx  AYHAX 

SCALE  FACTOR 

xxxx  1 ... 

ENTER  DAC  ARRAY  NUM  OR  NAME 

XX  XX 

OPT  I ON 

ADCA  (Alter  ADC  Array) 


Identical  to  DAC  routine  with  the  exception  that 
the  interactive  variable  is  assigned  to  an  ADC  not 
a DAC  and  the  number  must  be  1 - 28 


Example  - 


OPTION 
* * * * l•■i  .i.)  A 

i 0 i-i;  i;;:  j u i-;j  n t o o p i ■ i o u e h i t (;  !■< 
ENTER  ADC  ARRAY  NuM  OR  NAME 
xxxx  20 

OUAN2  i 1 ) ™ ADCO  i 20  ) 
iINTER  NAME 

SI...IPI(2i 
SCALE  FAC i OR 

■U-  ili-  W -If.  1 ^ 

ENi'ER  ADC  ARRAY  NUM  OR  NAME 

■X  X X X 


1 .0000 


MULTI  (Multiple  Runs) 


Purpose  - To  automatically  execute  a series  of  runs. 
Parameters  (interactive  variables)  may  be  incremented 
from  run  to  run  by  this  routine.  Parameters  retain 
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their  incremented  value  at  the  end  of  the  multiple 
run . 

Inputs  Requested  - 

1)  "NUMBER  OF  LOOPS,  VARS" 

(a)  Purpose  - To  specify  the  total  number  of 
runs  to  be  made  and  the  number  of  inter- 
active variables  to  be  incremented. 

(b)  Input  Requested  - LOOPS,  a number  less 
than  100;  VARS,  a number  less  than  50. 

2)  "VAR" 

(a)  Purpose  - To  specify  the  interactive 
variables  to  be  incremented.  The 
variables  are  incremented  at  the  end  of 
each  run  in  the  multi-loop.  If  a zero 

is  entered,  control  is  returned  to  OPTION. 

(b)  Input  Requested  - Any  interactive  variable. 

3)  "LOOP,  VAL,  INC" 

(a)  Purpose  - To  specify  the  run  number,  initial 
value,  and  increment  per  run. 

(b)  Input  Requested  - A value  can  be  specified 
for  each  run  with  a zero  increment  or  a 
series  can  be  setup  by  the  input  of  an  in- 
crement. The  incrementing  is  halted  at 
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each  new  LOOP  input  or  when  runs  equal  to 
the  total  number  of  LOOPS  have  completed. 


Example  - 

OPT  :i;oN 

nui...r;i; 

NUM  OF-  LOOPS  y VARS 

I 2 2 

VAR 

STR4 

LOOP/ VALy INC 

^ 20*  20* 

7 20*  20*  , 

VAR 

UIN 

LOOP, VAL/ INC 

1 ::)0,  0^ 

•)v  M- -It  M-  7 q()  ... 

^i:¥:¥:V:  7 ^O*  G* 

OPTION 


TEST  (Test  Run  or  Abend) 


‘ Purpose  - To  run  the  problem  without  real-time  serv- 
ice or  produce  an  abnormal  termination,  thus  giving 
a program  dump . 

Input  Requested 

1)  "ENTER:  RTIME,  NO  RTIME , ABEND" 

(a)  Purpose  - To  indicate  that  a command  is 
desired . 

(b)  Input  Requested  - One  of  three  commands: 
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(1)  No  RTIME  - This  will  remove  the  real- 
time calls. 

(2)  RTIME  - This  will  replace  the  real- 
time calls. 

(3)  ABEND  - Will  produce  a program  dump. 

Example  - 

OPT ION 

■)i>  K-  jc-  K-  1 I".  ,;V  I 

E N 1 1;;:  r : r i i h e ^ n o y<  t i m e::  / a b e n d 

RTIME 


MES  (Send  Message  to  Line  Printer) 


Purpose  - To  send  a message  to  the  line  printer 
that  will  document  analog  programming  changes 
(experimental  or  permanent) , indicate  the  state  of 
analog  computer,  or  log  simulation  information. 

Inputs  Requested  - A message  that  is  less  than  80 
characters  long  per  line. 


Example  - 


OPTION 

MEN 

I 0 E 1 U R N i Cl  U P T 1 0 N N H I T C Y< . T W I C E . ■ ■ 
THIN  OPTION  IN  UNEFUL  FOR 
« D 0 C:  U M EM  T I N(?  -N  ;i:  M U L..  A I I!  0-N  R U N N I'N  G ' 
V: ¥ ¥¥  AN I)  K E E r ' I N.Q'  N J! M U i .. A T i: ON-  N 0 J E N 
¥¥¥¥  ■' 
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% 

TABLE  (Tabular  Output) 

Purpose  - To  output  data  for  a series  of  runs  in 
a tabular  form.  Designed  for  use  in  the  multi-run 
cases.  This  routine  automatically  is  called  when- 
ever a multi-run  case  is  in  affect,  unless  it  is 
deselected. 


Input  Requested  - Up  to  nine  interactive  variables. 


Example  - 


OPTION 
OHHOjo  TAiBLE 

UNIT /MODE 

■}<:  V:  i<;  W I ■ 

i:;'NTER  UP  70  9 NAnE^* * 

STR4  BETAMX  BETDMX 

jC-  It:  H •)(. 


(.•  U V R A I 


TPACK  (Track  Real-Time  Variables) 

Purpose  - To  collect  and  output  simulation  data  as 
a function  of  time. 

Input  Requested  - 

"TIME  ON,  OFF,  STEP,  VARIABLES" 

* 

1)  TIME  ON 

(a)  Purpose  - To  state  the  time  in  seconds 
that  the  routine  will  turn  on. 
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(b)  Input  Requested  ~ Any  positive  number. 

2)  TIME  OFF 

(a)  Purpose  - To  state  the  time  in  seconds 
that  the  routine  will  turn  off. 

(b)  Input  Requested  - Any  positive  number  ^ 

TIME  ON. 

3)  TIME  STEP 

(a)  Purpose  - To  state  the  time  between  samples. 
If  this  sample  interval  is  too  small,  the 
program  will  automatically  compensate  for  it. 

(b)  Input  Requested  - Any  positive  number. 

4 ) VARIABLES 

(a)  Purpose  - To  enter  the  interactive  vari- 
ables to  be  tracked.  Entering  the  word 
Retain  will  retain  the  previous  variable 
list . 

(b)  Input  Requested  - Up  to  50  variables. 
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Example  - 

OPT ION 

TRACK 
UNIT/ MODE 
T A 

ENTER  TIME  ON /OFF /STEP 

* ¥:  V:  ^ b i ^ i ^ 1 

TYPE  RETAIN  OR  ENTER  NEW  ARRAY 

PSIDT  PHIDT  PHI  2IMXM)  ZIMX(3j 


TIME 

PSIDT. ( 1 ) 

PHIDT. ( 1 ) 

PHI . . . ( 1 ) 

ZIMX. . ( 1 ) 

ZIMX. . ( 

0.50 

0.43077 

G.77597E-02 

-0.11 728 

0.29986E-01 

0. 1 01,25 

0.60 

0.35703 

0.29683 

-0. 1 041 4 

0.29986E-01 

0.101 25 

0.70 

0 . 28586 

0.49151 

-0.59G47E-01 

0.29986E-01 

0.10125 

0.80 

0.28740 

0.32454 

-0.16426E-01 

0.29986E-G1 

0.10125 

0.90 

0.30123 

0.14344E-02 

-0.1 2279E -03 

0.29986E-01 

0.10125 

1 .00 

0.28316 

-0.1 4820 

-0.90558E-02 

G.29986E-G1 

0.10125 

1.10 

0.29048 

-0.38197 

-G.30314E-01 

G.29966E-01 

0.10125 

OPTION 


LA  (List  Array  Values) 

Purpose  “ To  output  the  values  of  variables  which 
are  array  members. 

Input  Requested  - Any  Interactive  Variable  which 
is  an  array  follov/ed  by  the  range  of  the  array 
desired . 


Example  - 

OPTION 


LA 

UNIT /MODE: 

T XL() 

e:nter  nahl: / index i / index2 

PR  I 1 4 
•)(•***  PSl  1 4 

pRh  11  14 

PAR  Ah  11  14 


« ^ « . 

FRI . . /.  . 

1-=>  1G73. 

I- SI 

1 - 1 0 . 3 1 

PRM 

11==^)  3832. 

PARAM.  . . 

11==>  3832. 


2==>  1073. 

2==>  10.51 

12== > 0.2400E  05 
12==>  0.2400E  05 


3==>  887.7. 

3==>  0.0 
13==>  0.2431E 
13==>  0.2431E 


4=2=;;  > 

887.7 

4==> 

0.0 

05 

(i 

!! 

530.0 

05 

14==> 

530.0 
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REMOVE  (Suspend  Output) 

Purpose  - To  cancel  the  execution  of  a selected 
Interactive  Subroutine. 

Input  Requested  - Any  Interactive  Subroutine  name. 


Example  ~ 

OPTION 

RE  HOVE 

yi  'ii  -'i  i 

TRACK 


The  following  routines  have  no  inputs.  Output  is 
directed  to  the  CRT. 


T+D  (Time  + Date) 


Purpose  - To  display  the  time  and  date. 


Example  - 

(iPT  ION 
¥:  W )(■  V;  r f I) 

UNI  10  NODE 

T XEQ 

JUNE  21  197-'! 

■f  IHE  1 4 30  ; jO  . o7 


STD  (Standard  Output) 

Purpose  - Select  standard  end  of  run  data. 
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I Example  - 


) 


OF'l  ION 
x»*«  STt  " 

UNIT /MODE 
K»)(»  ^ XEG) 

AXAV=  u.G  DEV.L  TIME=  0.0  AVCUR=  0.0  BTDMAX=  0.0  E(TMAX=  0.0  DELBI^  0.0 
AYMAX=  0.000  PH1MAX=  0.0  RMAX=  0.0  LANE  CHNC  DEL=  0.0  DELF'S’I=  0.0  MAX  STEER=  0.0 
FTRQMAX=  O.G  RIROMAX-  0.0 


DUMP  (Dump  Data  List) 


Purpose  - To  display 
variable  at  the  time 


Example 

on  ION 

)fxxx-  DOfil' 

UNI  1 / Moor:; 

)(  « H « I 

XFQ 

ABtn  V . 

G . 0 

DEI.i  I)T- 

G . 0 

Alii  , . 

G.  1VA2E--01 

DEL2I)A^= 

G . G 

AFA.  . *-= 

1 ,G0G 

DEL2DT- 

G . G 

aixi<f;;.=^ 

3720. 

I)EE3DA^= 

O.G 

AIXP. 

1 6? . fi 

I)EI..31)T== 

G . G 

AIXZBN---^ 

1 77.’:F' 

DLI.F: 

■.8000' 

AIXZP.x-' 

-3::)2.') 

DRY  T 8 7^ 

••-:2453E  - '54 

AlYIiR.^^- 

G.2322F  05 

1),S'WMAX-' 

0 . G 

AIYP. 

1 0 

Dl 

G.  1 GGL'E-  01 

AIZliR.^--^ 

G.294TF  g:;; 

• 1)  1 . . . . 

0 . 0 . 

1 . . 

1 .GOG 

D2.  . . 

-1 .209 

AKK2. 

1 .GOG 

1)3 ....  - 

0 . 0 

Al  I'  I . 

-.22Z2F  Ob 

1)4 

0 .1  1 48F.  ■ 88 

AL  I 0 . 

■■■•  4 . G ('.> 

1 lAL.'.-- 

-.11  33 E - 05' 

rji  i I 1 . , 

25 . 85 

1 1 AX. 

. 21  76E-  03 

Ahi;.’. 

-25.85 

1 XIAli.- 

- . 1 278E-58 

AMU  I . . 

G . 985'  7 

L.  1 ....  - 

G.1158E  09 

AM1  X . 

5 . G 1 8 

E2  . . . . - 

--.4  480E  08 

AM2I  . .== 

■-.2468  , 

E3 . . . . - 

0.1252E  08 

'ancnl.^^= 

G.116GF  G9 

FBX1  . .^= 

G.G 

ANONU'B^^^ 

G.8392F-G4 

Eli. S' 2. 

G.G 

ANTI1 

. 1 .734' 

FB.S'3.  .- 

G . 0 

ANT  1 2.==: 

1 .734 

FliS4. 

O.G 

ANTI 3.= 

-.1 425 

FCI  . . 

G . G 

ANTI4.--= 

-.1 425 

FCIMAX:^^ 

892.9 

API  . . 

■ G . 1 3 il  1 

1"  ,1  * A * * ™ 

1 .GOG 

AP2.  . 

G. 1 381 

FOTM. 

-1.21 8 

the  value  of  each  interactive 
the  dump  is  selected  to  execute. 


( 1 1 M . . . = 

83.28 

S3P  . . . 

-38.00 

r- t= 

G . G 

S4P . . . = 

-38 . GG 

l'ARAM.=- 

8 . 430 

Tli(;R3.- 

2.923 

Pl'F  . . 

0 . 0 

i]iCR4.=^^ 

2 . 923 

PAR  ...  - 

G . 0 

I BSR3.=^^ 

1 .038 

1 YW  . . . 

■-•.3097E  .03 

'(  nSR4.- 

G.9G47 

pr  1 . .- 

1 GGO  . 

1 FRI)AC=^ 

-.5388E  09 

Pill  . . .= 

0 . 0 

1 r U2  . . 

29.90 

Mil  a;  p'^^ 

-.5830P  02 

1 1 IE  . . . == 

- . 1 21 5E-G2 

PHI  Dii;<-= 

0 . G 

lUEDT.^'^^ 

G . 0 

Pin  i)  1 . - 

0.0 

"(liPI  NT--^- 

G . 7500 

111  1 Ml  I 

-.3800 

niEU. 

-.1 21 5E-G2 

Pin  1 . 

- . 8405  E-  02 

11  li:.  RR  . 

0 . G . 

Mi  I liAX- 

0 . G 

1 1 II PI) . . 

0 . 3333 

Miin. 

0 . 0 

ni.si . 

0. 1 3G9E-G1 

PUIRO . - 

G.G 

1 1 IS 2 . . - 

G . 1 ■3.09E  -G  1 

lilIRDA- 

G.G  . 

I IMHI1P== 

G.G 

lilIRR.- 

G.G 

I IMDEC=^^ 

O.G 

Ml . . . .- 

G.G 

I IME. 

0 . G 

PRM. . .- 

8.430 

I IME1  0^^^^ 

G.G 

PS'I  . . 

G . 0 

II  ME  25==^ 

G.G 

1 OS' ID  ■(.•■= 

G.G 

TIMIN5== 

G.G 

PaIENT- 

-.2700 

I MAXI .- 

G.9942E  28 

• PS' II . .- 

-.1558E-G2 

IMAX2.=--= 

G.1991E  08 

P.SIMAX- 

G , G 

IMAX3 . =■-■ 

-.4879E-49 

PS 10. 

O.G 

IMP. . .= 

G.G 

PSI0UT^= 

O.G 

TNBF.  .=^ 

G.O 
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AP3.  . -.1  42'!) 

FRI . . .== 

1047. 

PSIRR.:=-- 

0 . 0 

TQBR . . = 

0 . 0 

AP4...=  -.1425 

FRIBR.=:: 

1 047. 

PSI3S.=--: 

0 . 0 

TGFMAX=: 

0.0 

ARPS' 1.=  56.79 

FSI . . 

-19.70 

PSI4S.-- 

0.0 

TGRMAX:--= 

0.0 

ARPS2.=  56.97 

FXL1  . 

0.0 

PS  15. .= 

0.0 

TRCR3 . =: 

1.315 

AR1.  . . ••=  1.596 

FXL2.  .== 

0.0 

PSR3 . . = 

0.0 

TRCR4 . = 

1 .315 

AR2.. 1.596 

Fxi.n: . .= 

-1 .302 

PSR4. .= 

0.0 

TR02. 

30.90 

AR3.  . .==  0.0 

FYUI  . .=:: 

-19.70 

Q 

0 . 0 

TRSR3 . = 

0.4669 

AR4...=^^  0.0 

G A * A * A “■ 

386.4 

QDT.  . 

0.5060E-01 

TRSR4  .= 

0.4069 

AXAVE.-  0.0 

QAMF . . == 

0.0 

QO.  . . .= 

0.0 

Tsn2. 

23.50 

AXI. . .=  0.0 

GAM1  . .=• 

-31.19 

QUAN1 .= 

0.0 

TSTEP . = 

0 . 1 OOOE- 

AYMAX.==  0.1133E-05 

GAM2.  .= 

15.03 

GLiAN2.= 

0.0 

TWN7. 

0.3704E- 

A1 . . . .=  1 .540 

GAM3. .= 

15.03 

GUAN3.=: 

0.0 

U = 

880.0 

A12. . .=  -1543. 

GBI 

-.1 949E- 

01 

QUAN4 . ••= 

0.0 

UDT.  . .=•■ 

-.8422E- 

A2 = 1545. 

GETDL.= 

0.0 

R :: 

0.0 

UGI 

880.0 

A2T...=^  1900. 

GT = 

-.1882E- 

01 

RDT ... - 

-.2380E-05 

UGIP. 

880.0 

BAMI..=::  0.2221  E-02 

GP1  ...=:: 

0.2864E 

06 

RMAX. 

0.0 

UI = 

880.0 

BET  A ]!.••=  0.155HE-02 

GP2. . .= 

2202. 

RMI . . .= 

101). 

U I N . . . - 

50.00 

BETAMX=  0.0 

GR1  . . .- 

2202. 

RO. . . .= 

0.0 

UC).  ...=:: 

880.0 

BETDMX=^  0.0 

GR2.  . .= 

0.381 1 E 

05 

RO  fM.  .:■= 

0.0 

UGUT. .= 

880.0 

BETIBR==  -.  1962E-01 

GV1  . . .= 

0.4480E 

06 

ROUT.  .-■ 

0.0 

UOI ...” 

0.8966 

BET:i:P.==  0.6625E-03 

GV2.  . .= 

0.1 252E 

06 

RTAB . . := 

-.8457E-53 

UI  I . . .= 

0 . 6500 

BHPN..=  0.0 

1 AX.  . 

0.51 48E- 

84 

RWZI . .== 

0.7219 

DIP.  . 

0.0 

BMPS . . = 0.0 

II)ACK.=: 

0.0 

RZF 

24.50 

U2P.  . .::= 

0.0 

BRKOFF^  1.020 

I£NDR.=:: 

-14.24 

RZR.“.  .= 

■ 24-.-50  -"  - 

U3P . . . 

OvO-  - 

BRKON.-  0.5200 

j;erdac=: 

-14.24 

SALTG.= 

0.0 

U4P . . . = 

0.0 

BSLOPE=  0.5000E-01 

IN = 

-.201 4E- 

02 

SAMI . .= 

0.1272 

V -. 

0.0 

BTV...==  0.0 

INA. . .- 

0.2523E 

09 

SCR3. .= 

0.3551 

VDT. . .= 

- . 4844E- 

BTVI)T.=  -.4975E-06 

lOR.  . 

0.8236E- 

83 

SCR4 . . = 

0.3095 

VGI . . .= 

0.0 

CA20..-  0.6842E  07 

lOUT. .= 

0.7892E- 

04 

SPIN.  .= 

-100.0 

VHTPNO^-- 

6.000 

CA23..--  3293. 

IOUTA.:=: 

0 . 203 1 E 

38 

SFOUT.= 

1 .000 

VI = 

0.0 

C];p...===  4105. 

ipot: .= 

0.1 524E- 

81 

SFXU . . 

-4.643 

VO 

0.0 

CJ;VP..=  2046. 

IPOTAD== 

0.1 524E- 

81 

SFYU. .= 

0.0 

VOLH  . .= 

0.0 

cosps]:=  1.000 

IPRT.  .= 

0.0 

SINPSI= 

-.1 558E -02 

U - 

0.0 

CPSR3.==  1.000 

ISW1  . .== 

0.0 

SLIPI 

0.0 

WCTH1  .= 

-.7869 

CPSR4.=^  1.000 

ISW7. 

0.0 

SM.  . . .= 

9.760 

WCTH2.=:: 

-.9782 

CURTBP=--  0.0 

ITMP. 

0.7892E- 

04 

SN = 

0.0 

UDT.  . '.= 

18.51 

CIJRVAV-  0.0 

IVHTP.=: 

0.308VE- 

83 

SNI . . .=: 

1 .000 

UI =: 

0.0 

CIJ'VRAT==  0.0 

JJTIME== 

0.0 

SNPHIU= 

- 1 . 2 1 8 ■ 

UO - 

0.0 

CVJ:...^  50.00 

JUMP. 

0.0 

SNPSIU= 

0.0 

USTH1 .- 

0.6163 

DACQ..=-'  0.7a92E~04 

MUP  ...::= 

0 . 8 '56  3 

SNIHEU- 

1 1 66. 

WSTH2.::= 

0.2056 

DEI = 0.0 

NOAM. .= 

0.5432E 

09 

SPSR3.= 

0.3551 

X - 

0.0  ■ 

DEI,..BET:=  0.0 

NCAS. 

-.741 8E- 

67 

SPSR4 . - 

0.3095 

XDT  . . . 

880 . 0 

DELFUI1-  0.0 

Nl  A . . . = 

0.51  48E- 

83 

STR1  . .= 

0.0 

XO. . . .= 

0 . 0 ■ ' 

DELFW2^^^  0.0 

N I F 

0.1 G3GE- 

83 

STR2 . . 

0 . 0 

Y =: 

0.0 

DELPH:I>--^  -.7662E  55 

N TR 

0 . 1 030E- 

83 

STR3. 

0.0 

YDT. . .- 

0 . 0 

DEEPS ]>=:  0.0 

N 1 . . . . 

0. 1519E-- 

81 

STF;4  . . 

0 . 0 

YO 

0.0 

DELSTR=^  0.0 

N2.  . - 

0.61 26E- 

82 

STR5 . . = 

223.4 

Z - 

-23.84 

DELTA.:--  0.111UE  10 

UNEOA.:::: 

~,6480E- 

G o 

STR6. 

223.4 

Z D T.  . . ■■= 

1 .069 

DELHI  E-  -.I  079E-49 

ONEOD  . 

0.8947E- 

09 

s 1 r-' ...  - 

-40 . 00 

z j:  . . . . - 

-12. 48 

DELI  I)A-:=.  0.0 
OPT  ;i:nN 

ONER. .- 

-.5653E- 

09 

S2P...- 

-40.,  00 

ZIMX.  .=: 

0.7219 
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DACL  (DAC  List) 


Purpose  - To  list  the  DAC  assignments  and  scale 
factors . 

Example  - 

Of  I ION 
X-***  DACl. 


UNII /MODE 

T XEN 

I)ACO(  1 ) = 

I OUT . . ( 

1 )/ 

1 . 0000 

DACCn  2) 

lOUT. . ( 

2 )/ 

1 ,0000 

1)AC0(  3) 

TOUT. . ( 

3 )/ 

1 . 0000 

I)ACO(  4) 

= 

lOU r. . ( 

4)/. 

1 . 0000 

DACCH  5) 

= 

lOUT. . ( 

5 )/ 

1 .0000 

DACO ( A ) 

I OU I . . ( 

6 )/ 

1 .0000 

I)ACO(  7) 

= 

lOOI  . . ( 

7)/ 

1 .0000 

OACOl  (i) 

lOUI . . ( 

0 )/ 

1 .0000 

1)AC0(  V) 

TOUT . . ( 

9 )/ 

1 .0000 

I)ACO(  10  ) 

= 

lour. . ( 

10)/ 

1 .0000 

I)AC0(  1 1 ) 

lOLir. . ( 

11)/ 

1 .0000 

I>ACQ(  12) 

== 

lOUl . . ( 

12)/ 

1 .0000 

1)AC0(  13) 

= 

lOUT. . ( 

13)/ 

1 .0000 

DACOl 1 4 ) 

= 

lOUT. . ( 

14)/ 

1 .0000 

I)ACO(  15) 

lOU  l . . ( 

15  )/ 

1 .0000 

I)ACO(  1 6 ) 

lOUT. . ( 

16)/ 

1 .0000 

DACO (17) 

= 

lOUT.  . ( 

17)/ 

1 .0000 

DACO( 10) 

lOUT . . ( 

10)/ 

1 . 0000 

I)ACO(  19) 

lour. . ( 

19)/ 

1 .0000 

DACO (20) 

= 

1001  . . ( 

20)/ 

1 .0000 

DACO ( 21  ) 

TOUT. . ( 

32  )./ 

1 .0000 

DAC(:)(  22  ) 

= 

lOUT. . ( 

31  )/ 

1 . 0000 

DACO ( 23  ) 

- 

TOUT. . ( 

23  )/ 

1 .0000 

DACO ( 24  ) 

=r 

lOUT.  . ( 

29  )/ 

1 .0000 

DACO ( 25  ) 

= 

TOUT.  . ( 

25  ) / 

1 .0000 

DACO (26) 

TOUT. . ( 

26  ) / 

1 .0000 

DACO ( 27  ) 

= 

lOUT.  . ( 

27)/ 

1 . 0000 

DACO ( 20  ) 

TOUT. . ( 

2o  ) / 

1 . 0000 

DACO ( 29  ) 

=: 

lOUT. . ( 

24  )/ 

1 .0000 

DACO ( 30  ) 

= 

TOUT. . ( 

30  )/ 

1 .0000 

DACO ( 31  ) 

lOUT.  . ( 

22  )/ 

1 .0000 

DACO (32) 

= 

lOUT. . ( 

21  )/ 

1 . GO’GO 

DACO ( 33  ) 

= 

lOUT.  . C 

33  ) / 

1 .0000 

DACO ( 34  ) 

lOUT.  . ( 

34  )/ 

1 .0000 

DACO ( 35  ) 

= 

lOUT.  . ( 

35  )/ 

1 .0000' 

DACO t 36 ) 

== 

TOUT.  . ( 

36  )/ 

1 .0000- 

DACO ( 37 ) 

lOUT...  ( 

37)/ 

1 .0000 

DACO (30) 

=: 

ANT 11 . ( 

1 )'/ 

10000. 

DACO (39) 

= 

ANI  12.  (• 

1 )/ 

1 0000. 

DACO (40) 

=r 

ANTI3.  ( 

1 )/ 

1 000,0. 

DACO ( 41 ) 

=: 

ANTI 4.  ( 

1 )/ 

1GOOO.. 

DACO ( 42 ) 

=r. 

ETAX . . ( 

1 )/ 

1 .4000 

DACO( 43 ) 

ETAL. . ( 

1 )/ 

1 .4000 

DACO ( 44  ) 

=. 

ROUT . . ( 

1 )/ 

1 .-0000 

DACO( 45  ) 

= 

UOUT  . . ( 

1 )/ 

1200.0 

DACO (46) 

VOUT. . ( 

1 )/ 

1 200.0 

DACO ( 47 ) 

= 

DTV.  . . (■ 

1 )/ 

3.1 400  ■ 

DACO ( 40 ) 

= 

ONER. . ( 

1 )/ 

0.41 7G0E 
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ADCL  (ADC  List) 


Purpose  - To  list  the  ADC  assignment  and  scale  factors. 


Example  - 


OPT ION 

ADCL 

UNIiOMuDE 
■ivOO-iHt:  T XEQ 


DELi DT< 

1 ) 

ADCUi  1 

••••1  00  A 00 

DEL2DT( 

1 ;i 

:u“ 

ADCOf  2)« 

-1 00  A 00 

DEL3DK 

1 i 

ADCOi  3)« 

•-1  00  A 00 

DEL1 DA( 

i ;i 

ADCDi  4)* 

1 0A000 

DEL 2D A i 

i j 

:::: 

ADCGi 

1 0A000 

DEL 3D A ( 

1 j 

ADCUi  6]i<: 

1 Oa000 

PHIRD. i 

1 1 

ADCGi  7)^v 

1 A00O0 

PH I RDAi 

1 ) 

ADCGi  Gj» 

0a 25000 

DELEW 1 ( 

i i 

:::: 

ADCOi  ?)«• 

0 A 50000 

DELEW2( 

1 j 

ADCGi  1 0 

0 A 50000 

I i 1 r-’ . . . ( 

1 j 

ADCG i i 1 j « 

2a0000 

U2P. . . ( 

1 ) 

ADCGi ^2)^ 

2a0000 

U3P. . . l 

i i 

:::: 

ADCOi  i 3 

2a0000 

I.  I4P.  . . i 

1 ) 

:;;: 

ADCG  i 1 4 j ^0 

2a0000 

X 1 !"■ . . . i 

> 1 ) 

ADCGi 15)* 

1 000A0 

. V 2 P ...  ..  ( 

'i  i 

ADCGi  1 6 iov 

1 000A0 

A A A i 

-I  .1 

:r; 

ADCGi 171* 

1 000A0 

P4Pa  a a i 

i ) 

ADCGi 18)* 

1 000  A 0 

OIJAN1  A ( 

i ) 

ADCGi 1 9 1 * 

1 A0000 

0UAN2a ( 

1 ) 

ADCG i 20 ) * 

1 A0000 

QUAN3a i 

•I  ) 

ADCGi 21  )* 

1 A 0000 

0UAN4a ( 

i ) 

:::: 

ADCOi 22  )* 

1 A0000 

ARPX1 A ( 

1 } 

ADCGi 23  )* 

1 00  A 00 

ARPX2a ( 

-i  i 

ADCGi 24  )* 

1 00aO0 

WXTHi A ( 

1 ) 

ADCG i 25  ) * 

1 A 0000 

WCTH1 A ( 

1 ) 

ADCOi 26)* 

Ta0000' 

WXTH2a  f 

1 ) 

:::: 

ADCGi 27  )* 

1 A 0000 

I iCTH2A  i 
OPT  I ON 

1 ) 

ADCGi  28.) * 

1 A0000 
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TERM  (Terminate  Program) 


Purpose  - To  terminate  program. 


Example  - 


OPT  ION 

TERM 

JUNE  21  1974 

TIME  17:  5:30.72 
I ’*  r^!  0 l!v  l'\  A M T E.  I 'v  M .1.  N A I b.  .(1 


If  the  OPTION  cue  detects  an  error  or  an  error  is  forced 
by  user,  the  active  Subroutines  can  be  determined  by  the  input 
of  a question  mark  (?) . 

Example  - 


: jiPTIuN 

■)i:  li:  ■)!.■ 

F;!  i'‘‘  i'^  U 1\ 


OPTION  NOT  FOUND 


ro  XEO.  PROGRAM 
TO  TERMINATE  PROGRAM 
FOR  MULTIPLE  RUNS 
I- OR  TEXT  RUN  OR  ABEND 
TO  ALTER  DAC  ARRAY 
TO  ALTER  ADC  ARRAY 
TO  XET  IC  ONLY 
TO  SEND  MESSAGE  TO  LP 
FOR  TIME  AND  DATE 
TO  DUMP  DATA  LIST 
FOR  STANDARD  OUTPUT 


TYPE 

X 

TYPE 

TERM 

TYPE 

MULT  I 

TYPE 

TEST 

TYPE 

DAC  A 

TYPE 

ADCA 

TYPE 

IC 

TYPE 

MES 

TYPE 

T-^D 

TYPE 

DUMP 

TYPE 

STD 

TO  TRACK  REAL  TIME  VARIABLES 
FOR  TABULAR  OUTPUT 
TO  LIST  DAC  ARRAY 
TO  LIST  ADC  ARRAY 


TYPE  TRACK 
TYPE  TABLE 
TYPE  DACL 
TYPE  ADCL 
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APPENDIX  E 
SIMULATION  DATA 

1.  PRESENTED  HERE  IS  THE  LISTING  OF 
THE  INPUT  DATA  DfeCKS 


269 


VEHICLE  MODEL  - 1971  DODGE  CORONET 


-0.38 

.1061661 

.1684393  .01604185  -. 00579372- . 002 20835 

0.0 

0.75 

0.0 

0.0 

0.0  0.0 

0.  0 

0.0 

M AIM9  1 10 

-0.27 

-. 2416662 

-.00944941.01291661  -. 00089631- . 001 25 

0.0 

0.0 

0.0 

,0.0 

0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0  0.0 

0.0 

O.C 

MAIN91 40 

0.0 

0.0 

c.o 

0.0  0.0 

0.0 

0.0 

MAIN9 150 

0. 

0. 

TABLE  I - FRONT  BRAKE 

TORQUE 

FUNCTION 

1000. 

20640  . 

99999. 

MAIN919C 

0. 

0. 

TABLE  II  - REAR  BRAKE 

TORQUE 

FUNCTION 

1000. 

20640. 

99999. 

HAIN9230 

o.c 

1.00 

TABLE 

III-  SIDE  FORCE  SHAPING  FUNCTION 

0.05  0.99 

0.1  0.97 

0.15  0.93 

0.2  0.86 

0.30  0.72 

0.4  0.56 

0.6  0.34 

0.8  0.25 

1.0  0.18 


99999. 

MATN9410 

T + 0 

DUMP 

STD 

TESTO 

LA 

MAIN9470 

RESET 

TxR  ACK 

TABLE 

PLOT 

DACL 

M AIN9480 

ADCL 

ZZZZZZZZSTAT 

PC 

TH 

MAIN9490 

CHANGE 

READ 

CONTROL 

a AIN9500 

I 

TEST 

X 

P.E-STR 

DACA 

MAIN9510 

ADCA 

OUTPUT 

F 

M ULTI 

TERM 

M AIN9520 

MES 

IC 

ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ 

MAIN953C 

PSIDT 

PHIDT  PHI 

ZIMX  (1 ) 

ZIMX  (3) 

PEL  AXAVF  TIMDEC  AYMAX  SLIPI{1)  SLTPI(2)  SLIPI(3)  SLIPI(4) 

PPL  AXAVE  AYMAX  3FTDMX  CUVRAT  SLIPT(I)  SLIPI{2)  SLIPI{3)  SLIPI(4) 
BMPN  BMPS  AYMAa  RMAX  CnVRAT  3ETDMX 
STR4  BET.AMX  3SIDMX  CUVRAT  AYMAX  RMAX 
STR5  AYMAX  DEL  BETAMX  DELPST  UIN 
PHIMAX  PHIDMX  RMAX  ZIMX(1)  ZIKX(2)  ZIMX{3)  ZIMX(4)  UIN  3RKOFF 
PPL  AXAVE  AYMAX  BETDMX  CUVRAT  SLIPI(I)  SLIPI(2)  SLIPI(jy  SL1PI(4) 


QC  1 

8.43 

002 

0.  51 

003 

0.82 

00-4 

11,3 

005 

11.3 

006 

49.3 

007 

6 8,7 

008 

59.8 

009 

61.8 

C 10 

47.0 

01  1 

3758. 

012 

2 3 047 

0 13 

23  327 

0 14 

530. 

015 

550. 

016 

0. 

0 17 

40400 

0 10 

40.. 

19 

105. 

MAIN  97 30 
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MRIN9800 


021  - 

-2,  4 

0 22 

2.  1 

023 

0. 

024 

-5100. 

025 

38, 

26 

120. 

027 

2.0 

028  ■ 

-4,4 

029 

3.6 

030 

0.020 

031 

13,2 

032 

o 

• 

o 

033 

0.75 

034 

2701, 

035 

10.14 

036 

2533. 

037 

1. 30 

038 

4591. 

039 

0.0 

040 

1.27 

041 

8000, 

042 

14,  2 

043 

1.8 

044 

5.6 

045 

2.7 

046 

7,  2 

047 

6.4 

48 

0.  0 

049 

-9. 4 

050 

9.4 

051 

0.7 

052 

2.71 

53 

0.  0 

54 

0.0 

055 

-0.66 

056 

4.59 

057 

-4.  59 

058 

-.  1 30  9 

059 

. 1 309 

060 

1.0 

061 

0.0 

062 

0.0 

063 

064 

065 

066 

40. 

067 

068 

069 

070 

071 

072 

073 

074 

075 

.010 

76 

5.0 

07  7 

1 450. 

07  B 

1450. 

079 

1450. 

MAT  M9900 


M AINO  190 
MAINC20C 
MAIN  02 10 
MAI N0220 

MAIN02‘i0 
M AIN0250 
MAIN0260 
M AIN027G 

M AIN029C 
MAT  N0300 
M AINO  310 
MATNC32G 
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14-50 


080 

081 

082 

083 

084 


085 

-.00033 

C86 

0.0 

087 

1.228 

088 

.0000000759 

089 

090 

091 

0.0 

092  ' 

-0.  8 

093 

-.68 

094 

095 

096 

097 

098 

099 

100 

101 

102 

103 

104 

105 

106 

107 

1.0 

108 

109 

0. 

110 

0.0 

111 

0.0 

112 

0.0 

113 

1. 

114 

25. 

1 15 

1.0 

116 

0.5 

117 

3. 

118 

3. 

119 

120 

121 

30  0. 

122 

123 

124 

125 

126 

127 

128 

3.0 

129 

0. 

130 

0.06 

131 

16.0 

132 

55  90  0 

133 

55900 

134 

6 . 62 

135 

6 . 62 

136 

1 1 .0 

137 

54  . 

138 

5.20 

139 

0.45 

MAIN0460 
MAING470 
M AIN0480 


P5AIN0510 

H AIN0520 

MAINC530 

MAIN0540 

MAIS0550 

M AINC560 

MAIN057C 

HAINOSBC 

MAIN059G 

MAIN060G 

MAIN0610 

KAIN062C 

KAI N0630 

MAIN0640 

n AIN0650 

MAIN2560 


M AIN0700 


M AIN0760 
tlAIN0770 


MAI  NO  7 90 
M AING800 
M A I N 0 8 1 0 
K AINC820 
MAINCR30 
MAINC840 


M AIN086C 
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140 

“0,45 

141 

0. 

142 

0. 

143 

144 

145 

0.0 

148 

0.  0 

147 

148 

14.9 

150 

151 

152  « 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

16  3 

164 

165 

166 

167 

168 

169 

73, 

170 

73, 

171 

7 3, 

172 

2. 

173 

174 

175 

0.25 

176 

177 

178 

179 

1. 

180 

3, 

181 

1 . 

18  2 

0,  17 

18  3 

0.  17 

164 

0.  17 

185 

0.17 

186 

187 

138 

189 

0.0 

190 

191 

192 

1. 

19  3 

194 

195' 

196 

0. 

197 

0 . 

198 

199 

KAIN098G 
MAIN099C 
HAIN1GC0 
WAIN  10 10 


MAIN  1040 
« AIN  1050 
M AIN1 06C 
MAIN1 070 
MAIN  1080 
MAIN1C90 
MAIN  1 ICG 
MAIN1 1 10 
MAIN  1120 
M AIN  1 130 
MAIN  1 1 4C 
MAIN1 150 
MAIN  1 160 
M AIN1  170 
M AIN  1 180 
MAIN1 1 90 
« A IN  1200 
HAIN1210 
MAIN  1.2  20 
MAI N1 230 
MAIN1240 
M AIN1250 


NAIN1290 
M AIN1  .3  00 
N A I N 1 3 1 0 
MAIN  1 320 
M AIN1 33C 
M AIN1 340 
MAI N1 350 
MAIN  1 360 
MAIN  1 370 
M AIN1 3bC 


MAINI 430 
MAIN  1 440 
MAINI 450 

MAINI 470 
MAINI 480 
^5AIN1  490 
MAINI 500 
MAIN151C 
MAINI 52C 
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1.5 


HAIN1570 


200 
201 
202 
20  3 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 


0.94 

-.00008 

0.94 

-.00008 

0.65 

0.65 

0. 

0. 

0. 

0.0 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


219 

0. 

220 

0. 

221 

0. 

222 

0. 

223 

0. 

224 

0. 

225 

0. 

226 

0. 

227 

0. 

228 

0. 

229 

0. 

230 

0 . 

231 

400. 

232 

40. 

233 

0. 

234 

105. 

235 

105. 

2 36 

.120. 

237 

120, 

238 

1 . 

239 

1 . 

240 

.67 

241 

.67 

242 

-.0000393 

243 

-. C 000332 

244 

.00000175 

245 

-.00033 

246 

0,0 

247 

1,228 

248 

. 00000007 

249 

-.00318 

250 

. 00349 

251 

1, 404 

252 

-.00318 

253 

.00349 

254 

1,404 

255 

0.0 

256 

-.0015 

257 

-.005244 

258 

-5,592 

259 

0.0 

MAIN1680 

nAINl710 
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260 

-.0015 

261 

-.0052 

262 

-5.592 

263 

-0.13 

264 

-.03 

265 

.0 

266 

0. 15 

267 

.015 

258 

.0 

269 

0.089 

270 

.01 

271 

. 0 

272  ' 

0.0 

273 

.0 

274 

.0 

275 

0.0 

276 

0.0 

277 

0. 

278 

0, 

279 

0. 

280 

0. 

281 

1. 

282 

1 . 

233 

0. 

284 

2.  7 

285 

3.9 

286 

0.0 

287 

1. 

288 

0, 

289 

0. 

290 

0.75 

291 

2701. 

292 

10.14 

293 

2533. 

294 

1 . 30 

295 

4591  . 

001 

8.82 

004 

10.9 

005 

1C.  8 

006 

50.5 

007 

67.5 

Oil 

3832. 

012 

2 4 003 

0 13 

24  31  1 

092 

-1.1 

093 

-1.08 

304 

IOUT<0'1)  1. 

IOUT(02)  1. 
IOUT(03)  K 
IOUT(04)  1. 
IOUT(05)  1. 
IOUT(06)  1. 
IOUT(07)  1. 
IOUT(08)  1. 
IOUT(09)  1. 
lOUT(IO)  1. 
IOUT(11)  1. 
TOUT (12)  V 
IOUT(13)  U 


MAIN234C 
AIN2350 
MAIN2360 
n AIN2370 
MAIN2380 
M AIN239C 
nAIN2400 


M AIN245C 
MAIN2460 
M AIN2470 


J1  AIN2660 
MAIN267C 
M AIN26B0 
MAIN2690 
M AIN270G 
M AIN27  10 
MAIN272C 
M AIN2730 
MAIN2740 
MAIN2750 
MAIN2760 
MAI N2770 
M ATN27bC 
MAIN2790 


27^ 


IO0T(14)  1. 

I0UT(15)  1. 

I0DT(16)  1. 
I0DT(17)  1. 

I0UT{18)  1. 

I0UT(19)  1. 

IODT(20)  1. 
IOUT(32)  1. 
I0UT(31)  1. 

IOUT(23)  1. 
IODT(29)  1. 
IOUT{25)  1. 
IO0T(26)  1. 

IOUT(27)  1. 
IOUT(28)  1. 
IOUT(24)  1. 
IOUT(30)  1. 
IOOT(22)  1. 
I00T(21)  1. 
TOUT(33)  1. 
IOUT(34)  1. 
IO0T(35)  1. 

TOUT  (36)  1. 


HAIN2800 

WAIN2810 

MAIN2820 

BAIN2830 

MAIN2840 

BAIN2850 

KAIN2860 

BAIN2980 

BAIN2970 

BAIN2890 

MAIN2950 

BAIN2910 

BAIN2920 

BAIN2930 

B AIN294C 

BAIN2900 

B AIN2960 

MAIN288C 

MAI N287G 

MAIN2990 

MAIN3000 

MAIN3010 

MAIN3020 

MAIN3030 


IODT(37)  1. 

ANTI1  10000. 

ANTI2  10G00. 

ANTI3  10000. 

ANTI4  10000. 

ETAX  1.4 
ETAL  1.4 
ROUT  1.0 
UOUT  1200. 

VOUT  1200. 

BTV  3.14 

ONER  .00417  BAIN3070 


DELIDT  -100 
DEL2DT  -100 
DEL3DT  -100 
DELIDA  10. 
DEL2DA  10. 
DEL3DA  10. 
PHIRD  1. 
PHIRDA  0.25 
DELPHI  t . 5 
DELFH2  0. 5 
UIP  2. 

U2P  2. 

U3P  2. 

U4P  2. 

SIP  1000. 

S2P  1000. 

S3P  1000. 

S4P  1000. 
QUANI  1. 
QUAN2  1. 
QUAN3  1. 
QUAN4  1. 
APPS1  100. 
R6PS2  100. 
WSTH1  1. 


BAIN3080 
MAIN3090 
BAIN3  100 
M AIN31 10 
MAIN3120 
HAIN3130 
B AIN3 14C 
MAI N31 50 
M AIN3  160 
MAIN3170 
HAIN31 80 
MAINi 190 
MAIN3200 
M AIN3210 
HAIN3220 
MAIN323C 
MAIN324C 
MAIN3250 
M AIN3260 
BAIN3270 
B AINJ280 
MAIN3290 
BA IN  3 300 
BAIN331C 
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WCTH1 

WSTH2 

WCTH2 

1. 
: 1. 
: 1. 

066 

40. 

40. 

40. 

30. 

40 . 

45. 

50o 

074 

0. 

0. 

0. 

30. 

0. 

0. 

0. 

076 

5. 

10. 

1 0. 

5. 

5.  5 

4. 

3. 

112 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

114 

25. 

0. 

62. 

77. 

0. 

0. 

0. 

115 

1. 

0. 

1 . 

1. 

1. 

0. 

c. 

116 

.5 

100. 

.5 

.5 

.4 

100. 

100. 

117 

3. 

0. 

3. 

0. 

0. 

0, 

0. 

118 

3. 

0. 

3. 

0. 

0. 

0, 

0. 

121  ' 

300. 

200, 

200. 

0. 

0. 

0. 

10  00 

122 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

123 

0. 

0. 

0. 

0. 

C. 

0. 

0. 

124 

0. 

0. 

0. 

0. 

0. 

1. 

125 

0. 

0. 

0. 

0. 

0. 

0. 

1. 

126 

0. 

0. 

0. 

0. 

0. 

1. 

1. 

128 

3. 

1. 

3. 

4. 

2. 

5. 

6. 

192 

1. 

.1 

. 1 

. 1 

. 1 

. 1 

.05 

198 

0. 

0. 

C. 

12. 

0. 

0. 

0. 

199 

0. 

0, 

0. 

57.6 

0. 

n 

0. 

201 

0. 

0. 

0. 

1000. 

0. 

G. 

0. 

238 

1. 

1. 

1 . 

0.00 

0.  00 

0.00 

1 . 

2 39 

1. 

1. 

1 . 

0.00 

C.  00 

0.00 

1. 

240 

.67 

.67 

.67 

0.00 

0.  00 

0.00 

.67 

241 

.67 

.67 

. 67 

0.00 

0.  00 

0.00 

.67 

277 

0. 

0. 

0. 

8. 

0. 

c. 

C. 

278 

0. 

0. 

0. 

0. 

0. 

c. 

.52 

279 

./ 

0. 

ENDUP 

0. 

0. 

0. 

0. 

0. 

1 .02 

MAI N3320 
HAIN3330 
MAIN  3 340 
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VEHICLE 

MODEL  - 

1971  CHEVROLET  BLOOKKOOD  STATION  WAGON 

-0.5 

.3834042  . 1484607  . 00647286  -. 0C358714-.  00 ) 71 1 1 7 0. 0 

-1.0 

0.0 

0.0 

0.0  0.0  0.0  0.0 

-C.37 

-.1824622  -.03434468-. 0031657  .001503944.000329646  0.0 

0.0 

0.0 

0.0 

0.0  0.0  0.0  0,0 

0.0 

0,0 

C , 0 

0.0  0.0  0.0  0.0 

MAIN 

60 

0.0 

0.0 

0.0 

0,0  0.0  0.0  0.0 

MAIN 

70 

0. 

0. 

TABLE 

: I -FRONT  BRAKE  TORQUE 

MAIN 

80 

1000.' 

17000 

99999. 

MAIN 

1 10 

0. 

0. 

TABLE 

II  -REAR  BRAKE  TORQUE 

MAIN 

120 

1000. 

99999, 

17000 

• 

MAIN 

150 

0.0 

1.00 

TABLE 

III-  SIDE  FORCE  SHAPING  FUNCTION 

0.05 

0.99 

0.  1 

0.97 

0.  15 

0.93 

0.2 

0.86 

0.  30 

0.72 

0.4 

0.56 

0.6 

0.34 

0.8 

0.25 

1,0 

99999. 

0.18 

MAIN 

330 

T+D 

DUMP 

STD 

TESTO  LA 

MAIN 

390 

RESET 

TRACK 

TABLE 

PLOT  DACL 

MAIN 

4 0C 

ADCL 

ZZZZZZZZSTAT 

PC  TM 

M AIN 

410 

CHANGE 

READ 

CONTROL 

MAIN 

420 

I 

TEST 

X 

RE-STR  DACA 

MAIN 

430 

ADCA 

OUTPUT 

F 

MULTI  TERM 

M AIN 

440 

MSS 

IC 

Z7ZZ.ZZZZZZZZZZZZZZZZZZ2ZZZZZZZZZZZZ 

MAIN 

450 

PSIDT 

PH IDT  P 

HI  ZIMX(1) 

ZIMX(3) 

MAIN 

4 80 

PFL  AXAVE  TIK0EC  AYMAX  SLIPI(I)  SLIPI{2)  SLIPT.(3)  SLIPI(U) 

PFL  AXAVE  AYMAX  BSTDEA  CUVEAT  SLIPI(I)  SLIPI(2)  SLIPI{3)  3LIPI(4) 
BKPN  BMPS  AYMAX  RMAX  CUVRAT  BETDMX 
STS4  BETAMX  BETDMX  CUVRAT  AYMAX  RMAX 
STR5  AYMAX  DEL  I3ETAMX  DELP5I  UI  N 
PHIMAX  FHIDMX  RMAX  ZIMX(1)  ZIMX <2)  ZIMX{3)  ZIMX(4)  UIL  ERKOFF 
PFL  AXAVE  AYMAX  BETDMX  CUVRAT  SLIPI(I)  SL1PI(2)  SLIPT(3)  SLIP! (4) 


001 

11.2 

00  2 

0.63 

003 

1 . 03 

004 

11.1 

005 

10.9 

006 

65.0 

007 

60.0 

008 

6 3.5 

009 

63.5 

010 

45.3 

0 1 1 

6124. 

0 12 

41529, 

013 

42445. 

014 

1 790  , 

0 15 

750.. 

016 

0. 

017 

40-8^00 

0 18 

43, 

14 

141. 

MAIN  550 


273 


MAIN  72C 


021 

-3.  5 

022 

2.  3 

023 

0. 

024 

-62000 

025 

73. 

26 

210. 

027 

2.0 

028 

-3.6 

029 

2.  3 

030 

0.033 

031 

14.4 

032 

' 0.0 

033 

1.0 

034 

585.91 

035 

14.47 

036 

2886. 

037 

2.29 

038 

4057, 

039 

0.0 

040 

1.08 

041 

8000. 

042 

16.  2 

043 

2.0 

044 

4.2 

045 

1.9 

046 

5.  1 

047 

10.0 

48 

0.0 

049 

14.  8 

050 

14.8 

051 

0.7 

052 

3.08 

53 

0.0 

54 

0.0 

055 

0.16 

056 

5.25 

057 

-5,  25 

058 

-.1745 

059 

.1745 

060 

1 .0 

06  1 

0.0 

062 

0.0 

06  3 

064 

065 

066 

40. 

067 

068 

069 

070- 

071 

. 0.0 

072 

07  3 

07  4 

075 

■ .010 

076 

5.0 

077 

1724. 

078 

17  24. 

079 

1906. 

MAIN!  1 10 
KAIN1  120 
M MNI  1 30 
MAI N1 1 40 


MAIN1  160 
M AIN1 170 
MAI N1 1 80 
MAID!  1 190 

M AIN  1 210 
MAINI 220 
KAIN1230 
MAINI 240 
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080 

1906. 

081 

0.0 

08  2 

0.0 

083 

0.0 

084 

0.0 

085 

-.000208 

086 

0.0 

087 

1.267 

088 

.00000000437 

089 

090 

091 

0.0 

092  , 

-0.6 

093  - 

094 

095 

096 

097 

098 

099 

100 
101 
102 

103 

104 

105 

106 

-.42 

107 

1.0 

108 

109 

0.0 

1 10 

0.0 

111 

o.c 

112 

0.0 

113 

1. 

114 

25. 

115 

1.0 

116 

.5 

117 

3,0 

118 

3.0 

119 

120 

121 

3C0. 

122 

123 

124 

125 

126 

127 

128 

3.0 

129 

0. 

130 

0.06 

131 

12.0 

132 

91700. 

133 

91700. 

134 

.,6.26 

135 

6.26 

136 

11.0 

137 

77. 

138 

5.80 

139 

0.40 

MAINI 380 
MAIN1390 
MAIN14C0 


HAIN1U30 
MAIN1440 
MAIN1 450 
HAINI 460 
MAIN1470 
MAIN1480 
HAINI 490 
RAIN1 500 
HAIN1510 
H AIN152C 
HAINI 530 
HAINI 540 
MAIN1550 
MAIN156C 
HAINI 570 


HAINI 620 


M AIN3510 


MAIN  16B0 
HAINI 690 

H AIH 1 710 
H AIN1 720 
HAIN1 730 
H A I N 1 7 40 
H AINI 75C 
HAINI 760 

MAIN  1780 
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140 

o 

• 

0 

1 

141 

0. 

142 

0. 

143 

144 

145 

0.0 

146 

0.0 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

73. 

170 

73. 

171 

73. 

172 

2. 

173 

174 

175 

0.25 

176 

177 

178 

179 

1. 

180 

3. 

181 

1. 

182 

0.  1 1 

183 

0.  11 

184 

0.  14 

185 

0.  14 

186 

187 

188 

189 

0.0 

190 

191 

192 

1.0 

193 

194 

195 

196 

0. 

197 

0. 

198 

0.0 

199 

0.0 

rt  .A  IK  1^00 
f3AINl910 
RAIN  1920 
KAIS  .'930 


K AIK  1960 
HAIK1 97C 
« AIN  198C 
MAIN1990 
M AIM200C 
MAIK2010 
M AIN2020 
RAIN2030 
flAIN20UC 
NAIN2050 
MAIN2060 
KAIN2070 
M AIN2080 
HAIN2090 
C1AIN2  100 
f1  AIN2  1 10 
M AIN2120 
riAIN2130 
M AIN21U0 
MAIN2  150 
H AIN 2 160 
I1AIN2170 


HAIN2210 
MAIN  2 220 
HAI N22 3C 
M AIN'224C 
MAI N2230 
MAIN  2260 
M AIN2270 
MAIN  22  HO 
MAIN2290 
MAIN  2300 


MAIN2350 

MAIN2360 

MAIN2370 

M AIN2390 
M AIN2400 

MAIN2420 
M AIN2430 
M AIN244C 
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nMN2490 


200  1.5 

201  O.C 

202  0.94 

203  -.0000893 

204  1.20 

205  -.000177 

206  0.61 

207  0.70 

208  0.0 

209  0.0 

210  0.0 
211  0.0 
212  0.0 

213  0.0 

214  0.0 

215  0.0 

216  0.0 

217  0.0 

218  0.0 

219  0. 

220  0. 

221  0. 

222  0. 

223  0.0 

224  0.0 

225  0.0 

226  0.0 

227  0.0 

228  0.0 

229  0.0 

230  0.0 

231  4C0. 

232  400. 

233  0.0 

234  141. 

235  141. 

236  210. 

237  210. 

238  1.50 

239  1.50 

240  1.00 

241  1.00 

242  -.0000232 

243  -.0000372 

244  .00000233 

245  -.000109 

246  0.0 

247  1.216 

248  -.0000000135 

249  -.003024 

250  .003024 

251  1.86 

252  -.00247 

253  .00217 

254  1.90 

255  0.0 

256  -.00166 

257  -.00428 

258  -3.122 

259  C.O 
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260 

-.00126 

26  1 

-.00377 

26  2 

-5.48 

263 

-0.13 

264 

-.03 

265 

.0 

266 

0.  15 

267 

.015 

268 

.0 

269 

0.022 

270 

.01 

271 

.0 

272 

' 0.0 

27  3 

.0 

274 

.0 

275 

0.0 

276 

0.0 

277 

0. 

278 

0. 

279 

0. 

280 

0. 

28  1 

1. 

282 

1. 

283 

0. 

284 

0.7 

285 

4.0 

286 

0.0 

28’’ 

1 . 

288 

0. 

289 

0, 

290 

1.0 

291 

-230. 1 

292 

16.07 

29  3 

3473. 

294 

2.  42 

295 

4590. 

001 

11.6 

0C4 

10.9 

005 

10.8 

006 

64.9 

007 

60.1 

on 

6800. 

0 12 

42551. 

013 

43465. 

092 

-0.9 

093 

- . 56 

30  4 

lOUT(OI)  1. 
IOUT(02)  1. 
IOUT{03)  1. 
IOUT(04)  n 
TOUT (05)  1. 

IOUT(06)  1. 
TOUT  (07)  1. 

IOUT(08)  1. 
I0UT(C9)  1. 
lOUT(IO)  1. 
IOUT<n)  1. 
I0UT(12)  1. 

I0UT(13)  1. 

NAIN326a 
MAIN3270 
M AIN3  28C 
MAIN32’^0 
fi AIN3300 
MAIN3310 
H AIN3320 


MA1N3370 

MAIN3380 


riATN3f'0O 

f1 

MAIN36C0 
MAIN3610 
f1AI'J3620 
"1  AIN3630 
n AIN  3 64  0 
1 A IN  3 660 
MAIN3660 
NAIN3670 
M AIN36B0 
MAIN  3 690 
MAIN3700 
M A I N 3 7 1 0 


\ ' 
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I0UT(14)  1. 

HAIN3720 

MAIN37  30 

lOUTOS)  K 

MAIN3740 

IOUT(16)  1. 

MAIN3750 

IOUT(17)  1 . 

MAIN3760 

IOUT(18)  1. 

MAIN3770 

IOOT(19)  1. 

MAIN3780 

IOUT(20)  U 

HAIN3900 

IOUT(32)  1. 

nAIN3890 

IOUT{31)  1. 

MMN3810 

TOUT  (23)  1. 

H AIN3870 

IOUT(29)  1. 

MAIN3830 

rO0T(25)  1- 

MATN3840 

IOUT.{26)  1. 

f.  AIN385C 

IOUT(27)  1. 

HAIN3860 

I0UT(28)  1. 

KAIM3820 

IOOT(24)  1. 

MAIN3880 

IOUT(30)  1. 

. . MAI N3800 

IOUT(22)  1. 

MAIN  3790 

IOUT(21)  1. 

MAIN3910 

IOUT{33)  1. 

HA1N3920 

IOUT(54)  1. 

MATN393C 

IOUT(35)  1. 

MAIN394C 

IO'JT(36)  1. 

IOUT(37)  U 

HAIN3950 

ANTI1  'tOOCOo 
ANTI2  1C0C0. 
ANTI3  10000. 
A^3TI4  10000. 
ETAX  1.4 
ETAL  1.4 
BOOT  1.0 
IJOUT  12C0, 
BTV  3. 14 
VOUT  1200. 

ONES  .00417 

M AIN399C 

DEL  IDT  -100. 

MAI N4  000 

DEL2DT  - 1 00. 

M A IN  40  10 

DEL3DT  -100. 

M AIN4020 

iJ'ELlDA  10. 

MAIN4G3C 

DEL2DA  1C. 

MAIN4040 

DEL3DA  10. 

M AIN4C5C 

THIRD  1. 

MAIN4060 

"'HIRDA  0.2  5 

MAIN  40 70 

DPLFKl  0.5 

M AINU  0 80 

DELEW2  0,5 

M AIN4C90 

LM  P 2 . 

HAIN41C0 

U2P  2. 

HA1N4  1 10 

U3P  2, 

MAIN4 120 

04 P 2. 

MAIN41 JO 

SIP  1000. 

M AINU  140 

S2P  1000. 

MAIN4150 

S3P  1000. 

MAIN41bO 

34P  1000. 

MAIN4170 

gUANi  1. 

M AINU  180 

QUAN2  1.  ' 

HAIN4190 

QUAN3  1, 

MAIN 4 200 

QUAN4  1. 

MA1N4210 

ARPSl  .lOOo 

M AIN4220 

ARPS2  100.  ■ 

WSTH1  1.  . - 

MAI  74 2 30 
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UCTH1 

WSTH2 

BCTH2 

1 . 

: 1. 

1. 

- 

066 

40. 

40. 

40. 

30. 

40. 

45 . 

50  . 

074 

0, 

0. 

C . 

30. 

0 . 

c. 

0. 

076 

5, 

10. 

1 0. 

5. 

5.  5 

4. 

3 . 

112 

0. 

c. 

c. 

0. 

C. 

0. 

0. 

114 

25. 

0. 

6 2. 

85. 

0, 

0. 

0. 

115 

1. 

c. 

1 . 

1. 

1. 

0. 

0. 

116  ' 

,5 

100. 

.5 

.5 

.4 

100. 

ICO. 

117 

3o 

0. 

3. 

0. 

0. 

c . 

0. 

118 

3. 

0. 

3. 

0. 

G. 

c. 

0. 

121 

300. 

200. 

200. 

0. 

0. 

0. 

1500. 

122 

0, 

0. 

0. 

0. 

c. 

0. 

0, 

123 

0. 

c. 

0. 

0. 

0. 

0. 

0. 

124 

0. 

0. 

C. 

0. 

0. 

2. 

A 

I • 

125 

0. 

0. 

0. 

0. 

c. 

0. 

1 . 

126 

0. 

0. 

0. 

0. 

0. 

1. 

1 . 

128 

3. 

1. 

3. 

4. 

T 

• 

5. 

6 . 

192 

1.0 

.1 

. 1 

. 1 

. 1 

. 1 

.05 

193 

0. 

0. 

C. 

12. 

0. 

C. 

0. 

199 

0. 

0. 

c. 

57.6 

c. 

0. 

c. 

201 

0. 

0. 

0. 

1000. 

0. 

0. 

0. 

238 

1. 50 

1.50 

1 .50 

o.c 

0.  c 

0.0 

1 . 50 

239 

1.50 

1.  50 

1 .50 

c.o 

c.o 

c.o 

1 . 50 

240 

1.00 

1. 00 

1 .00 

o.c 

0.  0 

0.  0 

1 . jO 

241 

1.  GO 

1.00 

1 .00 

o.c 

C.  0 

o.c 

1.00 

277 

0. 

0. 

0 . 

8. 

0. 

c. 

C. 

278 

0. 

0. 

0. 

0 . 

V . 

0. 

.52 

279 
• / 

0. 

ENDUP 

c. 

0. 

0. 

0. 

0. 

1 . 02 

«,MN4240 

MAI^54250 

dAIN4260 
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VEHICLE 

MODEL  - 

1971  /OLKWAGEN  SUPER  BETTLE  - CALSPAN  - 

-1.0 

-.5421219  -.03507042-. 00111927. 000554971. 00C195158  0.0 

2.0 

0.0 

o 

. 

o 

o 

« 

o 

o 

. 

o 

o 

. 

o 

o 

. 

o 

COMM 

520 

-.  16 

-.2063332  -.03317212.001250005.000874341.000083333  .0.0 

-1.3 

.7300002  -.01333302.000833121.003333263-. 0C08333  0.0 

0.0 

0.0 

0.0  0.0  0.0  0.0  0.0 

COMM 

550 

0.0 

.03416665  -.02541667-. 00291666. 005416665-. 00125  O.C 

0.0 

0.0 

TABLE  I-  FRONT  BRAKE  TORQUE  FUNCTION 

1000. 

5904. 

99999. 

COMM 

590 

0.0 

0.0 

TABLE  II  - REAR  BRAKE  TORQUE  FUNCTIOH 

1000. 

5904. 

99999. 

COBH 

620 

0.0 

1.00 

TABLE  III-  SIDE  FORCE  SHAPING  FUNCTION 

0.  05 

0.99 

0.  1 

0.97 

0.  15 

0.93 

0.2 

0.86 

0.  30 

0.72 

0.  4 

0.56 

0.6 

0.34 

0.8 

0.25 

1.0 

0. 1 8 

99999. 

COMM 

8 30 

T + D 

DUMP 

STD  TESTO  LA 

COMM 

890 

RESET 

TRACK 

TABLE  PLOT  DACL 

COMM 

900 

ADCL 

Z2ZZZ2 

ZZSTAT  PC  TM 

COMM 

91C 

CHANGE 

READ 

CONTROL 

COMM 

920 

I 

TEST 

X F.E-STR  DACA 

COMM 

930 

ADCA 

OUTPUT 

F MULTI  TERM 

COMM 

940 

HES 

IC 

ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ 

COMM 

9 50 

PSIDT  PHIDT  PHI  ZIMX(1)  ZIP!X(3) 

COMM  980 


PFL  AXAVE  TIHDEC  AYMAX  SLIPI(I)  SLIPI(2)  SL1PI<1)  SLIPI(U) 

PFL  AXAVE  AYMAX  BETDMX  CUVRAT  SLIPI(I)  SLIPI{2)  SLIPl{3)  3LIPI(4) 
B'lPN  BMPS  AYMAX  FMAX  CUVRAT  BETEMX 
ST84  BETAKX  3ETDMX  CUVRAT  AYMAX  RMAX 
STR5  AYMAX  DEL  3ETAMX  DELPSI  UIN 
PHIMAX  PHIDMX  RMAX  Z1MX(1)  ZIMX{2)  ZIMX(3)  ZIMX(4)  UIN  BRKOFF 
PFL  AXAVE  AYMAX  BETDMX  CUVRAT  SLIPIjl)  SLI^T(2)  SLIPI(3)  SLIPI(4) 


001 

5.09 

002 

0.3- 

003 

0.5  7 

004 

11.5 

005 

11.8 

006 

56.1 

007 

39.7 

003 

53.8 

009 

51.5 

010 

5C. 

0 1 1 

1937. 

0 12 

9 139. 

013 

8528. 

014 

0.0 

015 

800. 

016 

0. 

017 

9300C 

018 

35. 

019 

65.7 

COMM  1 150 


*287 


COMM1220 


020 

5.C 

021 

« 1 . 80 

022 

3.  40 

023 

0. 

024 

28300. 

025 

40. 

026 

115. 

027 

2.5 

''20 

-1.85 

029 

3.35 

030 

0.0 

031 

12.6 

032 

' 0. 

033 

1,0 

034 

5835. 

035 

-2.89 

036 

2860. 

037 

1.79 

038 

2499. 

039 

0.0 

040 

0.957 

041 

7000. 

04  2 

17.  0 

043 

2.5 

044 

8.0 

045 

1.6 

046 

3.  9 

047 

4.4 

048 

0.0 

049 

7.35 

050 

7.35 

051 

0.3 

052 

4.13 

053 

0.0 

054 

0.0 

055 

1.66 

056 

3.75 

057 

-3.75 

058 

-. 1745 

059 

.1745 

060 

1.0 

061 

0.0 

062 

C.O 

063 

064 

06  5 

C66 

40. 

06  7 

068 

069 

070 

071 

0.0 

072 

07  3 

074 

0 75 

C.010 

076 

5.0 

077 

74  b. 

078 

74  b. 

079 

956. 

CCWM 1 310 
C0MM1320 


COM«15‘)0 


COMM  1620 
CO«f^  1 h30 
COMMI 640 

CO^'i1166C 
COM  ,''.1670 
COMM1 68C 
COMM  1690 

C OM  M 1 7 1 0 
COMM1720 
COMM  1730 
COMM  1 740 
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VEHICLE 
-1.0 
2.0 
-.  16 


MODEL  - 197 
-.5421219 
0.0 

-. 2063332 


/OLKWAGEM  SOPEH  BETTLE  - CALSPAN  ~ 

- .0350 7042-. 001 1 1927.000554971 .000195 158  0.0 
0.0  0.0  0.0  0.0  0.0 
-.03317212.001250005.000874341.000083333 .0.0 


COMM  520 


-1.3 

.7300002  -.01333302.000833121.003333263-. 0C08333  0.0 

0.0 

0.0 

0.0 

0.0  0.0  0.0  0.0 

COMM 

550 

0.0 

.03416665  -.0254  1667-. 00291666. 005416665-. 00125  O.C 

0.0 

0.0 

lABLE  I-  FRONT  BRAKE  TORQUE  FUNCTION 

1000, 

5904. 

99999. 

COMM 

590 

0.0 

0.0 

TABLE  II  - REAR  BRAKE  TORQUE  FUNCTION 

1000. 

5904. 

99999. 

COMM 

620 

0.0 

1.00 

TABLE 

III”  SIDE  FORCE  SHAPING  FUNCTION 

0.  05 

0.99 

0.  1 

0.97 

0.  15 

0.93 

0.2 

0.36 

0.  30 

0.72 

0.  4 

0.56 

0.6 

0.34 

0.8 

0.25 

1.0 

0.1  8 

99999. 

COMM 

8 30 

T+D 

DUMP 

STD 

TESTO  LA 

COMM 

890 

RESET 

TRACK 

TABLE 

PLOT  DACL 

COMM 

900 

ADCL 

ZZZZZZZZSTAT 

PC  TM 

COMM 

910 

CHANGE 

BEAD 

CONTROL 

COMM 

920 

I 

TEST 

X 

F.E-3TP  DACA 

COMM 

930 

ADCA 

OUTPUT 

F 

MULTI  TERM 

COMM 

940 

MES 

IC 

Z Z Z Z Z Z Z Z Z Z Z Z Z Z 2 Z Z Z Z Z Z Z Z Z 4 z z z z z z z z z z 

COMM 

9 50 

PSIDT 

PHIDT  PHI 

ZIMX  (1) 

ZIMX  (3) 

COMM  980 


PEL  AXAVE  TIHDEC  AYMAX  SLIPI(I)  SLIPI(2)  5LIPI{3)  SLIPI(4) 

PEL  AXAVE  AYMAX  BETDMX  CUVRAT  SLIPI(I)  SLIPI(2)  5LIPI(3)  3LIPI(4) 
B.MPN  BMPS  AYMAX  FMAX  CUVRAT  BETCMX 
STR4  EETAKX  3ETDMX  CUVRAT  AYMAX  RHAX 
STR5  AYMAX  DEL  3ETAMX  DELPSI  UIN 
PHIMAX  PHIDMX  RMAX  Z1MX(1)  ZIMX(2)  ZIMX{3)  ZtMX(4)  UIN  BRKOFF 
PEL  AXAVE  AYMAX  BETDMX  CUVRAT  SLIPI_^1)  SLI^T(2)  SLIP:{3)  SL1PI(4) 


001 

5.09 

002 

0.3- 

003 

0.57 

004 

11.5 

005 

11.8 

006 

56.1 

007 

39.  7 

003 

53.8 

009 

51.5 

010 

50. 

0 1 1 

1937. 

012 

9 1 39. 

013 

8528. 

014 

0.0 

015 

800. 

016 

0.  ■■ 

017 

93000 

018 

35. 

019 

65.7 

COMM1 150 


'287 


020 

5.C 

021 

-1.80 

022 

3.  40 

023 

0. 

024 

28300. 

025 

40. 

026 

1 15. 

027 

2.5 

''2C 

-1.85 

029 

3.35 

030 

0.0 

031 

12.6 

032 

0. 

033 

1.0 

034 

5835. 

035 

-2.89 

036 

2860. 

037 

1,79 

038 

2499. 

039 

0.0 

040 

0.957 

041 

7000. 

042 

17.  0 

043 

2,5 

044 

8.0 

045 

1.6 

046 

3.  9 

047 

4.4 

048 

0.0 

049 

7.35 

050 

7.35 

051 

0.3 

052 

4.13 

053 

0.0 

054 

0.0 

055 

1.66 

056 

3.75 

057 

-3.  75 

058 

-. 1745 

059 

. 1745 

060 

1.0 

061 

0.0 

062 

0.0 

063 

064 

06  5 

066 

40, 

06  7 

068 

069 

070 

071 

0 . 0 

072 

073 

074 

075 

C.010 

076 

5.0 

077 

74  b. 

078 

74  6, 

079 

956, 

COKMI 220 


COMM  me 
C0MM1320 


COMM  1590 


COKm620 
COHM1 630 
COMMl 640 

COMM166C 
COMM1670 
COMMl 680 
COMM  1590 

COMM1710 
COMM  1720 
COMM  17  30 
COMMl 740 
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080  S5b. 

081  0.0 
082  0.0 

083  0.0 

084  0.0 

085  -.00030 

086  0.0 

087  1.20 

088  0.0 

089 

090 

091  0,0 

092  -1.3 

093  ' -0.8 

094 

095 

096 

097 

098 

099 

100 
101 

• 102 
1C3 

104 

105 

106 

107  1.0 

108 

109  0. 

110  • 0.0 
111  0.0 
112  0. 

113  1. 

114  25. 

115  1.0 

116  ,5 

117  3.0 

118  3.0 

1 19 

120 

121  300. 

122  0. 

123 

124 

125 

126  0, 


127 

128 

3.0 

129 

0. 

130 

0.05 

131 

18. 

132 

106000 

133 

1060C0 

134 

5.50 

135 

5.50 

136 

3.  75 

137 

57. 

138 

5.75 

139 

0.0 

COHni880 
COMH1890 
COMM1 900 


C0KK1930 
COMfll  940 
COKnl950 
COMW1960 
conwi S70 
COMMi 930 
COMM  1990 
COHM2000 
COMM20 10 
COMH2C20 
COMM2030 
COMM2040 
COHM2050 
COMM2060 
COMH2070 
COMM208C 


COMM21 10 
COMM2 120 


COMM2 150 


COMM21 80 
COKM2 190 

COMM  22 10 
COMM2220 
COMM  2230 
COMM2240 
COMM2250 
COMM2260 

COMM228C 
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0.0 


140 

141 

142 

143  0, 

144  0. 

145  C.O 

146  0.0 

147 

148 

149 

150 

151 

152  ' 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169  73. 

170  73. 

171  73. 

172  2. 

173 

174 

175  .2500 

176 

177 

178 

179  1. 

180  3. 

181  ! . 

182  0,13 

183  0.13 

184  0.20 

185  0.20 

186 

187 

188  C. 

189  0. 

190 
19  1 

192  1.0 

193 

194 

195 

196  0. 

197  0. 
193 

199 


C0MH24G0 

CCWS2410 

COK32420 

COn*2430 


C06 02460 
CGf^;^24  70 
00^^2480 
COPM2490 
COKM250C 
COK?12510 
COM82520 
COMM2530 
COKJ12540 
COM«2550 
COMK2560 
COKM2570 
COf!«2580 
COMfl259C 
COMa26G0 
COMK261C 
C0f1«2620 
COMM2630 
COMn2640 
COMM2650 
COMK2S60 
CCSn2670 


CO«fl27  10 

COHM2720 

CORfl2730 

00832740 

C0M8275U 

C 08 8 2 760. 

CCKM2770 

COM.32780 

COKh2790 

COMM2900 


COMM2850 

COMPi2860 

C033287C 

COMM2860 

C0332890 

CO3M2900 

COMM2920 

CO332930 

COMM2940. 


290 


COMB2990 


200 

1 .5 

201 

202 

0.88 

203 

c.o 

204 

0.93 

205 

3.0 

206 

0.  64 

207 

0.70 

208 

0.0 

209 

0.0 

210 

0.0 

211 

O.C 

212  , 

0.0 

213 

0.0 

214 

0.0 

215 

0.0 

216 

0.0 

217 

0.0 

218 

0.0 

219 

0. 

220 

0. 

221 

0. 

222 

0. 

223 

0.0 

224 

0.0 

225 

c.o 

226 

O.C 

227 

0,0 

228 

0.0 

229 

0.0 

230 

0.0 

231 

200. 

232 

200. 

23  3 

0.0 

234 

65,7 

235 

65.7 

236 

115. 

2 37 

115. 

233 

1.44 

2 39 

1.44 

24  0 

no 

241 

no 

' . 

-.coco  1 0 7 

■ 243 

-.0000241 

244 

,00000218 

245 

-.OOOOB&3 

, 246 

0 , 0 

247 

n 1 8 5 

24  8 

OOCOOC 1 

249 

- .00593 

' 250 

.00612 

251 

1.67  1 

252 

— 0 04  4 5 

25  3 

.00440 

254 

, 6885 

255 

0.0 

256 

- . 00245 

257 

- . 00537 

25  8 

-.811 

259 

0.0 

COMB  3 3 90 
COMM3400 
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2f)0 

-.00184 

261 

-.00503 

262 

-1,85 

263 

0.0 

264 

.03 

265 

.0 

266 

0 . 29 

267 

.03 

268 

0. 

269 

0.089 

270 

.01 

271 

0. 

272 

0.  13 

273 

,03 

274 

.0 

275 

0.0 

276 

0.0 

277 

0. 

COHW3760 

278 

0. 

COM«3770 

279 

0. 

COMH3780 

280 

0. 

COKM3790 

281 

1. 

C OK M3  300 

282 

1. 

COHK3810 

283 

0. 

COMK3820 

284 

2.4 

285 

3.4 

286 

0.0 

287 

2. 

283 

0.0 

COKK3870 

289 

0.0 

COMM3380 

290 

1.0 

COBK3390 

291 

4037. 

292 

3.87 

293 

1728. 

294 

1.  41 

295 

3902. 

001 

5.50 

004 

10,8 

005 

11.2 

006 

55.9 

007 

39.9 

0 1 1 

2060. 

012 

9927. 

C13 

9385  . 

092 

-1,9 

093 

-1.3 

304 

COKK  3950 

rOUT(OI)  1. 

COMM3960 

IOUT{02)  1. 

COMM397G 

IOUT(03)  1. 

COKM3980 

lOUT 

(04)  1. 

COMM3990 

IODT{05)  1. 

CCKK400C 

IOUT{06)  1. 

COKM401C 

lOUT  (07)  1 . 

COKK4020 

IOUT(08)  1. 

COMM4030 

IOUT(09)  1. 

COMM4  04  0 

lOUT(IO)  1. 

COMM4050 

IOUT(11)  1.  ■; 

COMK4060 

IOUT(12)  1. 

COMM407C 

IOUT(13)  1. 

COKM408C 
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IOOT(14)  1. 
I0UT(15)  1. 

lOUT  (16)  1. 

IO0T(17)  1. 

IOUT(18)  1. 
IO0T(19)  1. 

IOU?(20)  1. 

IOO*r{32)  1. 

I00T(31)  1. 

IOUT(23)  1. 
TOUT (29)  1 . 

IOUT(25)  1. 

* IOUT(26)  1. 
IOUT(27)  1. 
IOUT(28)  1. 
IOUT(24)  1. 
IOUT(30)  1. 
IOUT(22)  1. 
IODT(21)  1. 

^ IOUT{33)  1. 
IOUT(34)  1. 
IOUTC35)  1. 

• IOUT(36)  1. 
IOUT(37)  1. 
ANTI1  10000. 
ANTI2  10000. 
ANTI3  10000. 
ANTI4  lOOQOo 
ETAX  1.4 
ETAL  1.4 
ROOT  1.0 
UOUT  1200. 
VOUT  1200. 

BTV  3.14 
ONER  .0041^ 

DEL  IDT  -100. 
DEL2DT  -100. 
DEL3DT  -100. 
r.'ELlDA  10. 
DEL2DA  10. 
DEL3DA  10. 
PHIRD  -100. 

MIR  DA  V'  3 
.ELFWI  0.5 
DKLFfeZ  0.5 
J'i?  2. 

02 P 2. 

^ . n 3 p 2 . 
iJ4P  2. 

SIP  1000. 

S2P  1000. 

S3?  1000, 

S4P  1000. 
QUANI  1. 
QUAN2  1. 
QOAN3  1. 
QUAN4  1. 

ARPS1  100. 
ARPS2  100, 
WSTH1  1. 


COMH4090 
COMH4 100 
COMN4 1 10 
COMM4 120 
COMn4130 
COMfl4  140 
COMN4 150 
COMH4270 
COHM4260 
COf1W4  180 
COMB4240 
COMB420C 
COMB4210 
CCHM4220 
COMB4230 
COMH4 190 
COMH4250 
COMM4 170 
COMB4 160 
CONM423C 
COMM4290 
CONK4300 
COMN43 10 
COMM4320 


COMM4  360 
COKN437C 
C0MB4  3 80 
CCNB4  39C 
CONB44G0 
COMM4410 


COMM  4 440 
CC«M4  45C 
COM M 4460 
C0HM44  7C 
COMM 4 4 80 
COMM4.490 
COMM45CO 
COMM451C 
CCMM4520 
COMH4530 
COMH4540 
COMW455C 
COMM4  5'6C 
COM M4 570 
CGMM458G 
COMM459C 
COMM460C 
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WCTH1 

WSTH2 

WCTH2 

1. 
1 1. 
: 1. 

066 

40. 

40. 

40. 

30. 

40. 

45. 

50. 

074 

0. 

0. 

0. 

30. 

C. 

C. 

0. 

076 

5. 

10. 

1 0. 

5. 

5.  5 

4. 

3 . 

112 

0. 

0. 

0. 

0. 

0, 

0. 

0. 

114 

25, 

0. 

39. 

72. 

0. 

0. 

0. 

115 

1. 

0. 

1 . 

1. 

1. 

0. 

0, 

116 

.5 

100. 

.5 

.5 

.4 

100. 

1C0. 

117 

3. 

0. 

3. 

0. 

0. 

0. 

0. 

118 

3. 

0. 

3. 

0. 

0. 

0. 

0. 

121 

300. 

200. 

200. 

0. 

0. 

0. 

1500 

122 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

123 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

124 

0. 

c. 

0. 

0. 

0. 

2. 

1. 

125 

0. 

0. 

0. 

0. 

0. 

0. 

1 . 

126 

0. 

0. 

0. 

0. 

0. 

1. 

1. 

128 

3, 

1. 

3 . 

4. 

2. 

5. 

6. 

192 

1. 

. 1 

. 1 

. 1 

. 1 

. 1 

.05 

198 

0. 

0. 

0. 

12. 

0. 

0. 

0. 

199 

0. 

0. 

0. 

57.6 

0. 

0. 

0. 

201 

0. 

0. 

0. 

1000. 

0. 

0. 

c. 

238 

1. 44 

1. 44 

1 .44 

0.0 

0.  0 

o.c 

1 . 44 

239 

1.44 

1. 44 

1 .44 

o.c 

0.  0 

0.  0 

1 . 44 

240 

1.00 

1.00 

1 .00 

0.0 

0.  0 

0.  0 

1. 00 

241 

1. 00 

1.C0 

1 .00 

0.0 

0.  c 

0.0 

1.00 

277 

0. 

c. 

0. 

8. 

0. 

0. 

0. 

278 

0. 

0. 

0. 

0. 

0. 

0. 

. 52 

279 
® / 

0. 

ENDUP 

0. 

0. 

0. 

0. 

0. 

1.02 

COMR4610 

CCMH4620 

COH’146,30 
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( 


VEHICLE 

MODEL  - 

197  1 PONTIAC  TRANS.  AM 

-0.  75 

.09643334  . 1009879  . 00946  18 3 1 . OC  1 592 098- . OC 1 5 

0.0 

-1.0 

0.0 

0.0  0.0  0.0  O.C 

0.0 

-0.42 

-. 0392543 4-. 03 157894-. 0045855 8. 00 17193 16. 0001 24999 

0.0 

0.0 

• 0.0 

C.O  0.0  0.0  O.C 

C.O 

0.0 

.0.0 

o.O  0.0  0.0  0.0 

0.0 

MAIN4600 

0.0 

0.  0 

0.0  0.0  0.0  0.0 

0.0 

n AIN4610 

0. 

0. 

TABLE  I - FRONT  BRAKE  TORQUE  FUNCTION 

1000. 

9874. 

99999. 

MAIN4650 

0. 

0. 

TABLE  II  - REAR  BRAKE  TORQUE  FUNCTION 

1000,. 

9074. 

99999. 

H AIN469C 

0.0 

1.00 

TABLE  III-  SIDE  FORCE  SHAPING  FUNCTION 

0.05 

0.99 

0.  1 

0.97 

0.15 

0.93 

0.2 

0.86 

0.30 

0.72 

0.4 

0.56 

0.6 

0.34 

0.8 

C.25 

1.0 

0.  IB 

99999. 

M AIN487C 

T + D 

DUMP 

STD  TESTO  LA 

MAT N4 930 

RESET 

TRACK 

TABLE  PLOT  DACL 

tt AIN4940 

ADCL 

ZZZZZZZZSTAT  PC  TM 

MAIN4950 

CHANGE 

READ 

CONTROL 

MAIN 4 960 

I 

TEST 

X RF-STR  D.ACA 

MAIN4970 

ADCA 

OUTPUT 

F MULTI  TERM 

MAIN498G 

MES 

IC 

ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ 

M AIN4990 

PSIDT 

PHTDT  PHI  ZI1X(1)  ZIMX(3) 

PFL  AXAVE  TIM3EC  AYWAX  SLIPI(I)  SLIPI(2)  SLIPI(3)  3LIPI(4) 

PPL  AXAVE  AYKAX  RETntlX  CUVRAT  SLIPI{1)  SLIPI(2)  SLT  PI  (3)  SLIPI(4) 
BMPN  BMPS  AYHAX  F.HAX  C3VRAT  3ETDMX 
STR4  BETAMX  BETDMX  CUVRAT  AYMAX  RMAX 
STR5  AYKAX  DEL  BETA.'iX  DELPSI  UIN 
PEIKAX  PHIDKX  RMAX  ZIMX(1)  ZIKX(2)  ZIKX  (3)  ZIMX{4)  UIN  BRKOEF 
PFL  AXAVE  AYKAX  BETDMX  CUVRAT  5LIPI(1)  SLr?I(2)  SLIPT{3)  SLIPI (4) 
001  8.82 

002  0.5^ 

003  0.8b  • 

004  7.0 

005  7.2 

0C6  42. bG 

0C7  85.40 

0G8  b1.9 

0C9  60,4 

010  45.5 

011  3523. 

012  19125. 

C13  20092. 

014  230. 

015  530. 

016  0. 

017  35bOCC. 

018  35. 

19  99. 


K AIN5 190 
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FlAiN5250 


020  2.0 
021  -2.0 

022  2.5 

023  0. 

024  190000. 

025  55. 

26  147. 

027  2.0 

028  -3,  3 

029  3.7 

030  -0.008 

031  12.8 

032  0.0 

033  1.0 

034  -401.85 

035  19.08 

036  3143. 

037  2.82 

038  4737, 

039  0,0 

040  1.C7 

041  8000. 

042  15.5 

043  2.0 

044  3.5 

045  2.0 

046  5,0 

047  8.0 

48  0.0 

049  10.0 

050  10.0 

051  0.7 

052  3.42 

53  0,0 

54  0.0 


055 

-0.24 

056 

5.0 

057 

-5.0 

058 

-. 1527 

059 

.1527 

060 

1 .0 

06  1 

0.0 

062 

0.0 

MAIN5650 

06  3 

MAIN  566  0 

0 64 

MAI N5670 

065 

M ATN5680 

066 

40. 

067 

M AIN57CC 

068 

MAI N5 710 

069 

MA1N57  2C 

070 

MAIN573L 

071 

C.O 

C72 

MAIN575C 

07  3 

MAIN576C 

074 

MAIN577G 

075 

.010 

MAIN 5 780 

076 

5.0 

. 

077 

17  36. 

078 

17  36. 

079 

1 736. 
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080 

17  36. 

081 

0.0 

082 

0.0 

083 

0.0 

084 

C,  0 

- 

085 

086 

087 

088 

089 

090 

091 

-.000398 
0.0 
1 .325 

. 00000C0940 

M AIN5920 
MATN5930 

0,0 

M AIN594C 

092 

093 

094 

095 

096 

097 

098 

099 

100 
101 
102 
103 
i0  4 
105 
1C6 

107 

108 

-0.6 

-.67 

MAIN5970 

HAIN5980 

MAIN5990 

MAIN6000 

MAIN6010 

MAIN6020 

1.0 

HAIN6030 
MAIN6040 
MAIN6050 
«AINb06G 
MAIN6070 
« AIN6080 
KAINt>09C 
MAIN6100 
MAIN61 10 

109 

0.0 

110 

0.0 

1 1 1 

0.0 

112 

113 

0.0 

1. 

R AIN6  160 

114 

25. 

115 

1.C 

116 

0.  5 

1 17 

3.0 

118 

119 

120 

3.0 

RAIN  6 220 
MAI N623C 

121 
'22 
•;  2 3 

124 

125 

126 
127 

300. 

M AIK6250 
M ATN6260 
MAIN6270 
M AINb28G 
MAIN6  290 
M A1N6300 

128 

129 

3.0 

0, 

MAIN 6 3 20 

130 

0.06 

1 3 1. 

1 4.0 

132 

87000. 

133 

87 000, 

134 

6,26 

135 

6.26 

136 

11.0 

137 

6 S . 

• 

138 

5.  B7 

139 

0.67 
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0 

140 

-0.67 

0 

141 

0. 

c 

142 

0. 

G 

143 

c 

144 

0 

145 

0.0 

146 

0.0 

c 

147 

n 

C 

148 

C 

149 

c 

150 

c 

151 

c 

152 

c 

153 

c 

154 

( 

155 

( 

156 

( 

157 

c 

T58 

( ' 

‘ 159 

( 

160 

t 

161 

( 

162 

( 

163 

( 

164 

( 

165 

( 

166 

( 

167 

168 

( 

169 

73. 

( 

170 

73, 

< 

171 

73. 

( 

172 

2. 

• 173 

174 

f 

175 

0.25 

( 

176 

1 

177 

( 

178 

1 

179 

1 . 

1 

180 

J. 

1 

181 

1 . 

1 

182 

0.14 

, 

183 

0.  14 

1 

184 

0.  14 

185 

0.  14 

18o 

187 

188 

189 

o 

. 

o 

190 

191 

192 

1.0 

193 

194 

195 

196 

0. 

197 

0. 

198 

0. 

199 

0. 

«AIN6440 
MAIK6tt50 
M AIN6460 
MAIN647C 


r.AIKbSOO 
HMN6510 
MAI N6520 
MAIN6530 
MAIN6540 
M AIN655C 
MAIN6560 
MAIN657C 
KAIN6580 
M AIN659G 
MAIN660C 
M AIN661C 
MAIN6620 
H AI N6  b3  0 
MAIN6640 
MAIN  6 650 
MAIN666C 
MAIN6670 
MAING680 
MAIN669C 
MAIN67C0 
MAIA671G 


M AIN675C 
M ATN676C 
M AIN6770 
MAIN678C 
K AIN6790 
M A1M6800 
MAIN6810 
MAI N682C 
MAIN683C 
K AIN684G 


M AIN6890 
MAI M6900 
MAIM691C 


MAIK6930 
MAI N6940 

MAINo9oC 
M AIN^970 
MAI N6980 
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HAIN7030 


20  0 

1.5 

201 

0. 

202' 

1.09 

20  3 

0.0 

204 

1.09 

205 

0.0 

206 

0.79 

207 

0.79 

208 

0.0 

209 

0.0 

210 

0.0 

211 

0.0 

212  , 

0.0 

213 

0.0 

214 

0.0 

215 

0.0 

216 

0.0 

217 

0.0 

218 

0.0 

219 

0. 

220 

0. 

221 

0. 

222 

0. 

223 

0.0 

224 

0.0 

225 

0.  0 

226 

0.0 

227 

0.0 

228 

0.0 

229 

0.0 

230 

0.0 

231 

400. 

232 

400. 

233 

0.0 

234 

99. 

235 

99. 

236 

147. 

237 

1 47. 

238 

1.67 

23  9 

1.67 

240 

1.0 

241 

1.0 

242 

-.oroo28i 

243 

- .0000346 

244 

.00000262 

245 

-.000398 

246 

0.0 

247 

1 . 325 

248 

. 00000009 

249 

-.002796 

250 

.00282 

251 

2.298 

252 

-.002796 

25  3 

.00282 

254 

2.  298 

255 

0.0 

256 

-.0008976 

257 

-.00419 

258 

- 10.  0 4 

259 

0.0 

M AIN743C 
MAIN7440 
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260 

-.0008976 

26  1 

-.00419 

262 

-10.04 

■ 

263 

-0.09 

264 

-.03 

265 

.0 

266 

0.15 

267 

.015 

268 

.0 

269 

0.064 

270 

.01 

271 

.0 

272 

0.0 

273 

.0 

274 

.0 

275 

0.0 

276 

0.0 

277 

0. 

MAIN7800 

278 

0. 

MAIN781C 

279 

0. 

PIAI  N7620 

280 

0. 

H AIN7830 

281 

1. 

KAIN784C 

282 

1, 

M AIN7850 

283 

0. 

MAIN7860 

284 

2.  0 

285 

5.7 

286 

0.0 

287 

1. 

288 

0. 

M AIN79  10 

289 

0. 

MATN7920 

290 

1.0 

291 

-401 . 85 

292 

19.08 

29  3 

3143. 

294 

2. 82 

295 

47  37. 

00  1 

9.  27 

004 

6.7 

005 

6.7 

006 

42.25 

007 

65.  75 

on 

3724. 

012 

20199. 

013 

21291. 

092 

-1.3 

093 

-.79 
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MAINH 120 

lOU? 

(01)  1. 

^AIN8130 

IOUT(02)  1. 

KAIN8 140 

IOUT(03)  1. 

MAI N8  150 

IOUT(C4)  1. 

. 

HAIN8160 

IOUT(05)  1. 

« ' 

M AIN8  170 

IOIJT(06)  1. 

H AIN8  180 

IOUT(07)  1. 

MAI NB1 90 

TOOT  (08)  1. 

M AIN8200 

IOUT(09)  1. 

. ' ■ 

MAIN8210 

lOUT(IO)  1, 

M AIN822G 

TOUT  (11)  1.  ' 

MAI NH230 

TOUT  (12)  1, 

, 

MAINS  240 

TOUT  (13)  1. 

« 

' 

MAIN  82 50 

' 300 


lOUT  (14) 

1 . 

lOOT  (15) 

1. 

lOUT (16) 

1 . 

lOUT  (17) 

1 . 

lOOT  (18) 

1. 

IOUT(19) 

1. 

lOUT  (20) 

1. 

IOOT(32) 

1. 

lOOT  (31) 

1. 

lOUT  (23) 

1 . 

lOUT  (29) 

1. 

IODT(25) 

1. 

I00t(26) 

1 . 

lOUT  (27) 

1. 

lOOT  (28) 

1. 

IO0T(24) 

1. 

lOUT  (30) 

1. 

lOOT  (22) 

1. 

rOUT(21) 

1. 

lOUT  (33) 

1. 

lOUT  (34) 

1. 

IOUT(35) 

1 . 

IOUT(36) 

1 . 

lOUT (37) 

1. 

ANTII  10000 

ANTI2  10000 

ANTI3  10000 

ANTI4  10000 

ETAX  1.4 

ETAL  1.4 

ROUT  1.0 

UOUT  1200. 

BTV  3.14 

PHIDT  .8 
PHI  .2 

DEL1DT  -100. 
DEL2DT  -100. 
DEL3DT  -100. 
DELIDA  10. 
DEL2DA  10. 
DEL3DA  10. 
PHIRD  1. 
PHIRDA  0,25 
DELPHI  0.5 
DELFW2  0.5 


U IP 

2, 

U2P 

2. 

U3P 

2. 

U4P 

2. 

SIP 

1000. 

S2P 

1000. 

S3P 

1000. 

34P 

1000. 

QUANI  1. 
QUAN2  1. 
QUAN3  1. 
QOANa  1. 
ARPS1  100. 
ARP32  100. 
WSTH1  1. 


HAIN8260 

MAIN8270 

MAIN8280 

MAIN8290 

MAIN8300 

MAIN8310 

HAIN8320 

MAIN8440 

MAIN8430 

MAIN8350 

MAIN8410 

MAIN8370 

HAIN8380 

HAIN8390 

RAIN8400 

MAIN8360 

MAIN8420 

HAIN8340 

HAIN8330 

MAIN8450 

M AIN84bO 

HAIN847C 

MAIN8480 

MAIN8490 


K AT N 8530 
KA1N8540 
MAIN8550 
« AIN856C 
MAIN3570 
K AIN8580 
M AIN8590 
K ATN86C0 
M A I N 8 6 1 0 
MAIN862C 
PI  AIN8630 
HAI NB640 
A1N8650 
MATN8660 
M AIN  867  0 
MAIN868C 
MAIN869C 
HAIN87CC 
MAIN8710 
M AIN8720 
KAIN873C 
MAIN8740 
MAIN875G 
M AIN8760 
MAIN877C 
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WCTH1  1. 
HSTH2  1. 
WCTH2  1. 


C66 

40, 

40. 

40. 

30. 

40. 

45. 

50. 

074 

0. 

0. 

0. 

30. 

0. 

C. 

0. 

076 

5. 

10. 

10. 

5. 

5.  5 

4. 

3. 

112 

0, 

0. 

0. 

0. 

0. 

0. 

0. 

114 

25. 

0. 

52. 

90. 

0. 

0. 

0. 

115 

1. 

0. 

1 . 

1 . 

1, 

0. 

0. 

116 

.5 

100. 

.5 

.5 

.4 

ICO. 

100. 

117 

3, 

0. 

3. 

0. 

0. 

0. 

0. 

118 

3.0 

0. 

3. 

0. 

0. 

0. 

0. 

121 

300. 

200. 

200. 

0. 

0. 

0. 

1500. 

122 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

123 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

124 

0. 

c. 

0. 

0. 

0. 

• 

1. 

125 

0. 

c. 

0. 

0. 

0. 

0. 

1. 

126 

0. 

0. 

0. 

0. 

0. 

1, 

1 . 

128 

3. 

1. 

3. 

4. 

2. 

5. 

6. 

192 

1.0 

.1 

. 1 

. 1 

. 1 

.1 

.05 

198 

0. 

0. 

0. 

12. 

0. 

0. 

0. 

199 

0. 

0. 

0. 

57.6 

c. 

0. 

0. 

201 

0. 

0. 

C. 

1000. 

0. 

0. 

0. 

238 

1 . 67 

1.67 

1 .67 

0.0 

0.  0 

0.0 

1.67 

239 

1.67 

1. 67 

1 .67 

0.0 

0.  c 

o.c 

1 . 67 

240 

1.00 

1. 00 

1 .00 

c.oo 

c.oo 

C . Oo 

1.00 

241 

1.00 

1.00 

1 .00 

0.00 

0.00 

0.00 

1. 00 

277 

0. 

c. 

0. 

B. 

0. 

0. 

0. 

278 

0. 

0. 

0. 

0. 

0. 

0. 

.52 

279 

0. 

0. 

0. 

0. 

0. 

0. 

\ . 0? 

./  ENDUP 


11AIN8780 

MAIN8790 

MAIN8800 
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2.  PRESENTED  HERE  ARE  THE  WHEEL  SPRING 
AND  SHOCK  ABSORBER  CHARACTERISTICS 
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WHEEL  SPRING  CHARACTERISTICS 

The  entries  in  this  table  are  the  values  of  the  slopes 
versus  suspension  displacement  for  the  no-load  vehicle  con- 
figuration. The  units  of  the  entries  are  Ibs/in  and  inches. 

Spring  Force  Spring  Force 

Effective  at  the  Effective  at  the  Spring 


Vehicle 

Front  Wheel 

for 

the 

Rear  Suspens 

ion 

Dodge  Coronet 

588 

for 

6 

> 

2.1 

864 

for 

> 

-J'  • 

105 

for  -2.4 

< 

6 

< 

2.1 

120 

for 

-4.4  < 

C 

< 

3. 

189 

for 

6 

< 

• 

CN 

1 

324 

for 

C 

< 

~4. 

Pontiac  Trans  Am 

347 

for 

6 

> 

2.5 

735 

for 

C 

> 

3. 

99 

for  -2.0 

< 

6 

< 

2.5 

147 

for 

1 

U) 

• 

U) 

A 

C 

< 

3. 

198 

for 

6 

< 

o 

• 

CN 

1 

294 

for 

c 

< 

-3. 

Chevrolet  Brookwood 

592 

for 

6 

> 

2.3 

1071 

for 

c 

> 

2. 

141 

for  -3.5 

< 

5 

< 

2.3 

210 

for 

-3.6  < 

< 

2 . 

282 

for 

6 

< 

m 

• 

1 

399 

for 

< 

-3. 

Volkswagen  Super  : 

Beetle 

526 

for 

6 

> 

3.40 

449 

for 

Q 

> 

3. 

65.7 

for  -1.80 

6 

< . 

3.40 

115 

for 

-1.85< 

< 

3. 

164 

for 

6 

< 

1 

• 

CO 

o 

184 

for 

c 

< 

-1. 

6 

6 

4 

7 

7 

3 

3 

3 

6 

35 

35 

85 
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SHOCK  ABSORBER  CHARACTERISTICS 


The  entries  in  this  table  are  the  values  of  the  slopes  versus 
wheel  ride  motion.  The  units  of  the  entries  are  lbs/ (in/sec)  and 
in/sec . 


For  Shock  Absorber 
Damping  Effective 
Vehicle  at  the  Front  Wheel 


For  Shock  Absorber 
Damping  Effective 
at  the  Rear  Wheel 


Dodge  Coronet 


4.33 

for 

V 

> 

0 

1.50 

for 

V 

> 

7.2 

9.36 

for 

V 

< 

0 

8.32 

for 

0 

< 

V 

< 

7.2 

6.63 

for 

V 

< 

0 

Pontiac  Trans  Am 

1.79 

for 

V 

> 

21.9 

0.79 

for 

V 

> 

15.8 

7.78 

for 

10.2 

< 

V 

< 

21.9 

1.99 

for 

0 

< 

V 

< 

15.8 

2.74 

for 

0 

< 

V 

< 

10.2 

4.58 

for 

-11.3 

< 

V 

< 

0 

21.0 

for 

- 7.46< 

V 

< 

0 

1.01 

for 

V 

< 

-11.3 

3.10 

for 

V 

< 

- 7.46 

Chevrolet  Brookwood 

1.94 

for 

V 

> 

0 

1.62 

for 

V 

> 

0 

12.1 

for 

-10.2 

< 

V 

< 

0 

9.99 

for 

-10.1 

< 

V 

< 

0 

1.17 

for 

V 

< 

-10.2 

1.61 

for 

V 

< 

-10.1 

Volkswagen  Super 

Beetle 

1.81 

for 

V 

> 

12.0 

1.89 

for 

V 

> 

0 

4.28 

for 

0 

< 

V 

< 

12.0 

8.06 

for 

-19.1 

< 

V 

< 

0 

5.73 

for 

-12.6 

< 

V 

< 

' . 0 

2.87 

for 

V 

< 

-19.1 

11.4 

for 

-16.5 

< 

V 

< 

-12 . 6 

• - 

4,44 

for 

V 

< 

-16.5 

• • 
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3.  PRESENTED  HERE  ARE  THE  CAMBER 
AND  TOE  DATA 
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CAMBER  AND  TOE  DATA 

To  obtain  these  data,  the  wheel  was  moved  from  the  full 
rebound  position  to  compression  bump  stop.  In  order  to  use 
these  data  in  calculations,  one  must  know  the  values  of  camber 
and  toe  at  a reference  value  of  suspension  displacement  which 
depends  upon  vehicle  loading.  The  data  presented  here  were 
measured  with  reference  to  a no-load  vehicle  configuration. 

Displace- 


Vehicle 

ment 

Camber 

Toe 

Dodge  Coronet  (left  front) 

0 

0 

0 

(static  displacement  = 3.0) 

1 

0.41 

-0.37 

2 

0.98 

-0.59 

3 

1.26 

-0.85 

4 

1.22 

-1.05 

5 

0.95 

-1.21 

6 

0.43 

-1.36 

Pontiac  Trans  Am  (left  'front) 

0 

0 

0 

(static  displacement  = 4.0) 

1 

0.26 

-0.03 

2 

0.83 

-0.18 

3 . '• 

1.27 

-0.31 

4 

1.48 

-0.39 

5 

1.48 

-0.40 

6 

1.2? 

-0.40 

Chevrolet  Brookwood  (left  front) 

0 : 

i 

0 

0 

(static  displacement  = 3.0) 

1 

0.85 

-0.24 

2 

1.68 

-0.53 

.*  • ' 

3 

2.18 

-0.73 

4 

2 .43 

-0.89 

5 

2.47 

-1.01 

6 

2.29 

-1.10 

7 

1.96 

-1.17 
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CAMBER  AND  TOE  DATA  (Cont’d) 

Displace- 


Vehicle  merit  Camber 


VW  Super  Beetle  (right  rear)  0 0 

(static  displacement  =3.0)  1 -0,72 

2 -1.44 

3 -2.16 

4 -2.90 

5 -3.60 

VW  Super  Beetle  (left  front)  0 0 

(static  displacement  =4.0)  1 -0.57 

2 -1.25 

3 -1.87 

4 -2.46 

5 -2.96 

6 -3.42 

7 -3.79 

8 -4.08 


Toe 

0 

0.06 

0.08 

0.07 

0.02 

0.05 

0 

-0.17 

“0.45 

-0.73 

-0.96 

-1.14 

-1.25 

-1.30 

-1.32 
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4.  PRESENTED  HERE  ARE  THE  PARAT4ETER 
TABLE  OUTPUT 


311 


parameter  values  - MODEL  C - VEHK'E  mqoEL  - 1971  DODGE  CORONET 
1 MS=  8. *300  f Z MUP=  0.51000  . 3 MUP=  0.62000  t * ZF«  11,300  « 5 ZR*  11,300 
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PARAMtTE«  values  - MODEL  C - VEHICLE  MOOEL  - 1971  PONTIAC  TRANS.  AM 
1 MS=  9.2700  . 2 MUF=  0.53000  » 3 MUR=  0.86000  « A ZF s 6.7000  i 5 6.7000 
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APPENDIX  F 

COMPARISON  VARIABLE  GRAPHS 
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1.  VHTP  #1  - STRAIGHT  LINE  BRAKING 

A - Average  Longitudinal  Deceleration  from 
35  mph  to  10  mph  (GEES) 

Pg  - Brake  Line  Pressure  (PSI) 


RX-flVG.  LONG.  DECEL.-GEES 


flVG.  LONG.  DECEL. 
(CRLSPRN»  O.E 


VS.  BRRKE  LINE  PRESSURE 
TIRES,  STRIGHT  LINE  BRRKING) 


e - DODGE  CORONET 
B,  - CHEVY  BflOOKHOOD 
* - PONTIAC  TRANS  AM 
, - VW  SUPERBEETLE 
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♦ 


2.  VHTP  #2  - BRAKING  IN  A TURN 

A - Average  Longitudinal  Deceleration  from 
^ 35  mph  to  10  mph  (GEES) 

Pg  - Brake  Line  Pressure  (PSI) 

BETADOT  - Peak  Vehicle  Sideslip  Angle  Rate 
(RADIANS/SEC) 

R (1/R)  - Average  Path  Curvature  Ratio  Relative 
^ to  Initial  Turn 
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flX-FIVG,  LONG.  DECEL.-GEES 


RVG.  LONG.  DECEL.  VS.  BRRKE  LINE  PRESSURE 


(CRLSPRN.  O.E.  TIRES.  BRRKING  IN  R TURN) 


O “ CHFVir  BROOKHOOU 
* - POMTIflC  TARNS  RM  ‘ 

„ - VW  SUPERBEETl.E 

) * 

• , . 322 


15  JUL  74 


BETRDOT-PERK  SIDESLIP  RATE  - BRDlflNS/SEC 


MUK  SIDESLIP  RATE  VS.  RVG.  LONG.  DECEL . 

(CRLSPRN,  O.E.  TIRES.  SHAKING  IN  R TURN) 


RX-LONG.  DECEL.-GEES 


9 - OOOCf  CORONH 
O - CrifVY  BROWWOCO 
* ■-  PONllRC  TRANS  RM 
» - VH  SC/PCRB£nL£- 
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RO  d/R} -flVG.  PATH  CURVATURE  RATIO 


nnH 


RVG.  PATH  CURV.  RATIO  VS. 
(CALSPAN.  O.E.  TIRES, 


AVG.  LONG.  DECEL. 
BRAKING  IN  A TURN) 


o - DODGE  CORONET 
a - CHEVT  BROOKHOOD 
ft  - PONT  IRC  TRRNS  RM 
B VH  SIIPERBEEn  e 
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3.  VHTP  #3  - TURNING  ON  A ROUGH  ROAD 

f - Roadroughness  Fundamental  Frequency  - 

Determined  by  Spacing  of  the  Disturbance 
Elements  in  Each  Grid  (HZ) 

R (1/R)  - Average  Path  Curvature  Ratio  Relative 
to  the  Initial  Turn 

BETADOT  - Peak  Vehicle  Sideslip  Angle  Rate 
(RADIANS/SEC) 
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RO(l/R)-flVG.  PATH  CURVATURE  RATIO 


»o<«  RVG.  PATH  CURVATURE  RATIO  VS.  RORDROUGHNESS  FREQ 
(CALSPAN»  O.E.  TIRES,  TURNING  ON  A ROUGH  ROAO) 


KM  M 


9 - dooge:  cohonh 

a - CHEV7  BflOOKHOOO 
* - POMTIRC  7RBNS  RM 
„ - VW  SUPERBEETLE 
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BETflDOT-PERK  SIDESLIP  RfiTE  - BRDIflNS/SEC 


♦cMK  SIDESLIP  RfiTE  VS. 
(CfiLSPfiN,  O.E.  TIRES, 


ROfiDROUGHNESS  FREQ. 
TURNING  ON  fi  ROUGH  ROAD) 


® - DODGE  CORONET 
o - CHEVT  8R00KW000 
* - PONTIAC  TRANS  AM 
K - VW  SUPERBEETLE 
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4.  VHTP  #4  - TRAPEZOIDAL  STEER 


A - Peak  Lateral  Acceleration  (GEES) 

y 

SIGMA  - Normalized  Steer  Angle  (DEGREES) 
R - Peak  Yaw  Rate  (RADIANS/SEC) 


Rg(l/R)  - Path  Curvature  Response  Averaged  Over 
Two  Seconds  and  Ratioed  to  a Reference 
Path  Curvature  Deriving  from  a Steady 
Turn  of  40  mph  and  l.Og  A 

y 

BETADOT  - Peak  Vehicle  Sideslip  Angle  Rate 
(RADIANS/SEC) 


BETA  - Peak  Vehicle  Sideslip  Angle  (RADIANS) 


RS  (1/R) -NORM.  PATH  CURV.  RATIO 


♦<»<»<  NORM.  CURVATURE  RATIO  VS.  NORM.  STEER  ANGLE 
(CALSPAN»  O.E.  TIRES.  TRAPEZOIDAL  STEER) 


O - DODGE  CORONET 
a - CHEVT  8ROOKH0OD 
A - PONTiaC  TRRNS  RM 
K - VW  SUPERBEETLE 
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BETfi  - PERK  SIDESLIP  ANGLE  - RRDIRNS 


KKH  SIDESLIP  RNGLE  VERSUS  NORMRLIZEO  STEER  ANGLE 
(CRLSPRN.  0.E.  TIRES,  TRRPE2QJDRL  STEER) 


SIGMR-NORM.  STEER  ANGLE 

O - aOOGE  C0BONET 
B - CHEVT  BflOOKHOOO 
A - PONTIRC  IFIfiNS  RM 
X - VW  SUPEB8EE7LE 
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15  -JUL  74 


3ETRD0T-PERK  SIDESLIP  RATE  - RRDIRNS/SEC 


«««  SIDESLIP  RATE  VERSUS  NORM.  STEER  ANGLE  mmh 
(CRLSPfiN,  O.E.  TIRES,  TRRPE20IDRL  STEER) 


9 - DOOGf  C3R0ME1 

a - CHEVT  f?R«3KWBgC  . • 

A - PONTIPC  TBRNS  RM 

X - VK‘  SUPER8EE1LE  • • 

15  ‘JUL  74 
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BETflDOT-PEflK  SIDESLIP  ROTE  - RflDIflNS/SEC 


SIDESLIP  RATE 
• (CRLSPflN, 


VERSUS  HOm.  PATH'  CURVATURE  RATIO 
G.E.  TIRES.  TRAPEZOIDAL  STEEf;) 


e - OOOGE  CCROMET 
a - CHEVT  BRQOKWOOO 
A - PONT  IRC  IRpNS  RM 
X - VW  SUPERBEETLE 

332'.  - 
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RY-PEAK  LRTEBfll  WCELEBflT ION-GEES 


*«**  LflTERftL  RCCeCEBBTION  VS.  NORM.  STEER  RNCLE  mkx 


(CRLSPRN.  O.E.  TIRES.  TRRPE20IORL  STEER) 


r 


t 


9 - OODGf  CORONH 
a - CHEVY  aRCOKHOeO 
A - PONTIAC  TRANS  AM 
X - VH  SUPERBCETLE 
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PERK  YflW  RATE  - RRDIRNS/SEC 


«««  YflW  RATE  VERSUS  NORM.  STEER  ANGLE 
(CALSPRN,  O.E.  TIRES,  TRAPEZOIDAL  STEER) 


0. 


SIGMA-NORM.  STEER  ANGLE 

0 - DODGE  CORONET 
B - CHEVT  BflbOKWOOD 
A - P0N7IRC  TRRNS  RM 
* - VW  SUPER8EETLE 
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5.  VHTP  #5  - SINUSOIDAL  STEER  . 

DEL  PSI  - Vehicle  Heading  Angle  Deviation 
After  3.4  Seconds  (RADIANS) 

SIGMA  - Normalized  Steer  Angle  (DEGREES) 

DEL  - Lane  Change  Deviation  from  "IDEAL"  Lane 
Change  Displacement  (FEET)  ‘ ' . 

BETA  - Peak  Vehicle  Sideslip  Angle  (RADIANS) 


I 
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M«K  LfiNE  CHRNGE  DEV. 
(CfiLSPRN,  O.E.  TIRES. 


VS.  NORM.  STEER  RNGLE 
SINUSOIORL  STEER-45  MPH) 


e,  - OOOGE  COHONET 

a - CriEVT  BROOKWOOO  ' 

A - PONT  IRC  TRRNS  HM 
* - VW  SUPER8EETLE 
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BETR  - PERK  SIDESLIP  RNGLE  - RRDIRMS 


«MK  SIDESLIP  RNGLE  VS.  NORM.  STEER  RNGLE 
(CRLSPRN,  O.E.  TIRES.  SINUSOIORL  STEER-45  MPH) 


O - Dooce  CBflOMET 
o - CHEVT  BROOKHOOO 
4 “ POMURC  7RBNS  RM 
K - VM  SUPERBEE7LE 

• : 337* 


15  JUL  74 


BETA  - PERK  SIDESLIP  ANGLE  - RRDIRNS 


SIDESLIP  ANGLE- VS.  LANE  CHANGE  DEV. 
(CALSPAN^  O.E.  TIRES.  SINUSOIDAL  STEER-45  MPH) 


DEL-LANE  CHANGE  DEV. 


® - OOOGE  COflCJNET 
o - CHEVT  BflOOKWOaO 
A - POM71RC  7RRMS  RM 
* - VW  SUPER8EE7LE 

15  JUL  74 
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DEL  PSI-hERDING  fiNGLE  DEVIflT lON-RflDIflNS 


«kk  herding  fiNGLE  DEV.  VS.  NORM.  STEER  RNGLE 
(CRLSPfiN,  O.E.  TIRES.  SINUSOIDAL  STEER-45  MPH) 


t 


\ 


Q - OOOGE:  CORONET 
a - CHEVY  BHOOKWOOD 
A - P0N71BC  TRRNS  RM 
K - VW  SUPERBEETLE 
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DEL-LRNE  CHRNGE  DEV IfiT ION-FEET 


«»<»<  LANE  CHRNGE  DEV.  VS.  NORM.  STEER  ANGLE  «»«»< 
(CRLSPRN,  O.E.  TIRES,  SINUSOIDAL  STEER-SO  MPH).. 


30t 


04  0 12  16 

SIGMR-NORM.  STEER  ANGLE  • 

o - OOOGE  CORONET 
a - CHEVT  BROOKHOOO 

* - PONTIRC  TRRNS  RM 

* - VH, SUFER8EETLE 
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BETA  - PERK  SIDESLIP  RMCLE  - RflDIflMS 


HKK  SIDESLIP  ANGLE  VS.  NORM.  STEER  RNGLE  xkm 
ICRLSPRN.  O.E.  TIRES.  SINUSOIDAL  STEER-60  MPH) 


> 


t 


\ 


O - DODGC  COHCN<n 
B - CHEVT  afiOOKHOOO 
A ■»  PONTifiC  7 ARMS  RK 
* - VH  SUPERSEEUE 


15  JUL  74 
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BETA  - PERK  SIDESLIP  ANGLE  - RRDIRNS 


SIDESLIP  ANGLE  VS.  LRNE  CHANGE  DEV.  kkm 
(CALSPRN,  O.E.  TIRES.  SINUSOIDAL  STEER-SO  MPH) 


e - DODGE  CORONET 
n,  - CHE'vT  8BP0KW00D 
.t  - PONT  IRC  TBRNS  RM 
„ - VW  SUPERBEETLE 

• ’ • 342 


15  JUL 


DEL  P5l-hEflOIMG  flMGLE  DEV JflT lON-RflDIflMS 


KKK  HERDING  RNGLE  DEV.  VS.  NORM.  S7EER  RNGLE  kkk 
(CRLSPRN.  O.E.  TIRES.  SINUSOIDRL  STEER-60  MPH) 


t 


\ 


K 


SIGMfi-NORM.  STEER  ANGLE 


» - OODGC  COnONH 
o - CHTVY  BRaCHHOOD 
^ - PONURC  TRANS  AM 
g - YW  SUPCR BEETLE 
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6.  VHTP  #6  - DRASTIC  STEER  AND  BRAKE 
PHI  - Peak  Roll  Angle  (RADIANS) 

PHIDOT  - Peak  Roll  Angle  Rate  (RADIANS/SEC) 


Phl-PEflK  POLL  PMCLE-BPOIPMS 


. roll  RNGLf  VS*  ROLL  RNGLE  RR7E 

(CRLSPRN.  0*f.  TIRES.  DRASTIC  STEER  i.  BRRKE-50  MPH) 


PHIOOT7ROLL  ANGLE  RRTE 


0 - DODC€  CORONH 
a - curvy  &800KW00D 
4 - PONlIftC  IflflNS  «H 
, - VH 'sC'PfB6fF-UE 
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- ■ 16  JUL  -74 


Phl-PEflK  POLL  PMGLE-RRDlflMS 


roll  PNCLE  vs.  roll  RNGLf  RRTE 


(CRLSPRN.  O.f.  llRfS.  DRRSTIC  STfER  K BRRKE-60  MPH) 


- DODGf  CORONH 

- CHCVY  BROOHMOOD 

- PONllRC  TRANS  AM 

- VH  SUPCflBfETLf 
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